Найти максимальное из двух чисел задание по информатике

Question

Найти максимальное из двух чисел задание по информатике

Answer 1

Program prog;
uses crt;
var a,b: real;

begin
write('Введите число а = ');
readln(a);
write('Введите число b = ') ;
readln(b);
writeln;
if a>b then writeln('Максимальное число а = ',a:0:3);
if aif a=b then writeln('Числа равны');
end.