Написать программу p=a×b

program eee;

var

p,a,b: integer;

begin

readln(a,b);

p:=0;

begin

while a>0 do begin

p:=p+b;

a:=a-1;

end;

writeln(p);

end;

end.

Если PascalABC то вот:

var a,b,p:real;

begin

Writeln('Введите число a,b');

readln(a,b);

p:=(a*b);

Writeln('p = ', p);

end.