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.