Написать на паскале программу .определить что меньше а или б.

Var a, b: real;
begin
     readln(a, b);
     if (a > b) then writeln(a, ' > ', b);
     if (a = b) then writeln(a, ' = ', b);
     if (a < b) then writeln(a, ' < ', b);
end.

Так =)

Program 123;
uses crt;
var
a,b: integer;
begin
clrscr;
writeln(' enter a,b');
readln(a,b);
if (a<=b) then min:=a
if (b<=a) then min:=b
writeln('min=',a,'min=',b);
readln;end.