Question

Написать программу, которая вводит длину и ширину прямоугольника и выводит ответ.

program QWE;

var A,B,S:integer;

begin

read (A,B)

S = A:B;

write (S)

end.
язык Pascal если шо

Answer 1

program QWE;

var a,b,s: Real;

begin
ReadLn(a);
ReadLn(b);
s := a*b;
WriteLn(s);
end.