Program Z1;
var a,b,c:integer;
begin
writeln('введите два числа');
readln(a,b);
c:=a*b;
writeln(c);
end.
var x,a,b:Real;beginreadln (a,b);x:=a*b;Write (x);end.
Program Z1;
var a,b,c:integer;
begin
writeln('введите два числа');
readln(a,b);
c:=a*b;
writeln(c);
end.
var x,a,b:Real;
begin
readln (a,b);
x:=a*b;
Write (x);
end.