program p1;
uses srt;
var a,m,sum:integer;
begin
clrscr;
writeln("read p and a");
read(m);
read(a);
sum:=m*a;
write(sum);
readkey;
end;
Объяснение:
