Запиши программу в паскале для вычисления площади прямоугольника со сторонами a и p.

Program p1;
uses srt;
var a,p,sum:integer;
begin
clrscr;
 writeln("read p and a");
read(p);
read(a);
sum:=p*a;
write(sum);
 readkey;
end;