Придумайте любую программу в freepascale

Программа читает два числа, выводит их сумму, разницу, деление первого на второе и произведение
program smt;
var
a,b:real;
begin
readln(a,b);
writeln('a+b=', a+b);
writeln('a-b=', a-b);
writeln('a*b=',a*b);
write('a/b=',a/b);
end.