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

var a,b:real;beginwriteln('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.