Var a,b,c:real;
begin
writeln(Vvedite 3 chisla);
readln(a,b,c);
if (a>=b) and (a>=c) then
writeln(yes) elso
writeln(no);
end.
примерно так, могут быть ошибки, но алгоритм ясен
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.