составить программу определяющую какое из двух чисел a и b введенных с клавиатуры больше

var a,b:real;
begin
writeln('ВВеди первое число');
readln(a);
writeln('Введи второе число');
readln(b);
if (a>b) then writeln('Первое больше')
else writeln('Второе больше');
readln;
end.