Program umnoj;
var p,x,y:integer;
begin
Writeln('введите первое число' );
readln(x);
Writeln('введите второе число' );
readln(y);
P:=x*y;
readln(P);
End.
Program umnoj;
var p,x,y:integer;
begin
Writeln('введите первое число' );
readln(x);
Writeln('введите второе число' );
readln(y);
P:=x*y;
readln(P);
End.