Вопрос пользователя:
Требуется написать программу на языке Паскаль или Бейсик, которая будет выводить на экран максимальное значение из трех вводимых с клавиатуры чисел.
Илюха отвечает:
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.