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

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