Программа на pascal , которая : "сравнивает две строки , введенные пользователем".

Если сравнить числа, то так:

var

a,b:real;

begin

write('Введите первое число: '); readln(a);

write('Введите второе число: '); readln(b);

if a<>b then

begin

if a>b then writeln(a, '>', b);

if a<b then writeln(a, '<', b);

end

else writeln(a, '=', b);

end.