Ответ:
Program sravnenie;
var a,b,c: real;
begin
readln(a,b);
if a>b then c:=a
else c:=b;
writeln('Наибольшее число:', c);
end.
Program abc;
var a,b,c:real;
begin
Write('Введите первое число:');readln(a);
Write('Введите второе число:');readln(b);
Write('Введите третье число:');readln(c);
if a
if b
if c
Writeln(a);Writeln(b);Writeln(c);
end.