Скласти програму обчислення добутку двох чисел, які вводяться з клавіатури

Question

Скласти програму обчислення добутку двох чисел, які вводяться з клавіатури

Answer 1

Program Z1;

var a,b,c:integer;

begin

writeln('введите два числа');

readln(a,b);

c:=a*b;

writeln(c);

end.

Answer 2

var x,a,b:Real;
begin
readln (a,b);
x:=a*b;
Write (x);
end.