Помогите пожалуйсто составить программу на TP

[ЖекаМ]

Составить программу сравнения по велечине двух чисел, которые вводятся с клавиатуры Результаты сравнения вывести на экран

[Sazary]

Эм.. Просто сравнить два числа? Это что-ли?

uses crt;
var a,b : real;
begin
clrscr;
write('Enter a: '); readln(a);
write('Enter b: '); readln(b);
if a>b then writeln('a>b')
else if a<b then writeln('a<b')
else writeln('a=b');
readln;
end.

Вообще-то это азы..

[maladoy]

program sravn;
uses crt;
var a,b:real;
begin
writeln ('vvedite 1 chislo');
readln(a);
writeln('vvedite 2 chislo');
readln (b);
if a> b then writeln (a,' > ',b);
if a< b then writeln (a,' < ',b);
if a= b then writeln (a,' = ',b);
readln;
end.

[ЖекаМ]

Большое спасибо если не трудно там ещё две задачи буду очень благодарин зарание спасибо