program qq;
var a,b: real;
begin
writeln ('Введите два числа.');
readln (a, b);
if a>b then writeln ('Наиболее из чисел: ', a:5:5)
else writeln ('Наибольшее из чисел: ', b:5:5);
end.
Объяснение:
Внимание! Цифры вводить через точку, а не через запятую. Лично у меня через запятую не считает.
program qq;
var a,b: real;
begin
writeln ('Введите два числа.');
readln (a, b);
if a>b then writeln ('Наиболее из чисел: ', a:5:5)
else writeln ('Наибольшее из чисел: ', b:5:5);
end.
Объяснение:
Внимание! Цифры вводить через точку, а не через запятую. Лично у меня через запятую не считает.