Помогите создать программу паскаль для задачи:Даны два различных вещественных...

Question

Помогите создать программу паскаль для задачи:
Даны два различных вещественных числа.Определить :
а)Какое из них больше;
б)Какое из них меньше;

Answer 1

Var
a,b:real;
begin
readln(a,b);
if a=b then writeln('Они равны')
else if a>b then writeln(a,' больше ' ,b)
else writeln(b,'  больше ' ,a);
end.