uses crt;
var A,B:integer;
begin TextColor(Blue);
writeln('<<<Нахождение максимального из двух целых чисел >>>' :50); writeln;
write('Первое число= ? ');
readln(A);
write('второе число= ? ');
readln(B);
write('Максимальное из двух чисел ');
if A>B then writeln(A)
else
if B>A then writeln(B) else writeln('Числа равны!'); readln;
end.
логический тип, булев (Boolean) может принимать два возможных значения, иногда называемых правдой (true) и ложью (false)
Держи. Код на С++,могу переделать под Паскаль.
Ответ вот тут максимальное разрешение 1023*289
6878*3422