uses crt;var a,b,c:integer;beginclrscr;readln(a,b,c);if (a>b) and (a>c) then writeln('Max chislo = ',a);if (b>a) and (b>c) then writeln('Max chislo = ',b);if (c>b) and (c>a) then writeln('Max chislo = ',c);readln;end.
program max_chislo;
var
a,b,c:integer;
begin
write ('Введите три числа через пробел');read(a,b,c); readln;
if (a>b) and (a>c) then write('максимальное число = ',a);
if (b>a) and (b>c) then write('максимальное число = ',b)
else write ('максимальное число = ',c);
readln;
end.
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
if (a>b) and (a>c) then writeln('Max chislo = ',a);
if (b>a) and (b>c) then writeln('Max chislo = ',b);
if (c>b) and (c>a) then writeln('Max chislo = ',c);
readln;
end.
program max_chislo;
var
a,b,c:integer;
begin
write ('Введите три числа через пробел');read(a,b,c); readln;
if (a>b) and (a>c) then write('максимальное число = ',a);
if (b>a) and (b>c) then write('максимальное число = ',b)
else write ('максимальное число = ',c);
readln;
end.