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

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