Придумайте любую программу в 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.