Написать программу, которая запрашивает ввод двух целых чисел и проделывает над ними операции умножения и деления

program a1;
var
 a,b,c,d:real;
begin
 write ('a='); read (a);
 write ('b='); read (b);
 c:=a*b; d:=a/b;
 writeln ('a*b=',c:0:2,'; a/b=',d:0:2)
end.