Составить программу которая вводит два числа и печатает какое из них больше или они равны. через бейсик

Var a,b:real;
begin
writeln('Vvedite znachenie peremennoy a= ');
readln(a);
writeln('Vvedite znachenie peremennoy b= ');
readln(b);
if a>b then writeln('chislo ' ,a, ' bolche');
if a<b then writeln('chislo ' ,b, ' bolche');
if a=b then writeln('chisla ravny');
readln;
end.