Найти площадь прямоугольника

В математике:
S=a*b
В программе:
var
a,b:integer; S:real;
begin
write('Введите число A='); readln(a);
write('Введите число B='); readln(b);
S:=a*b;
write('S=',S);
end.