Задание

В среде программирования Pascal запиши программу для вычисления площади прямоугольника со сторонами a и m.

var

a, m:word;

begin

writeln('Введи стороны прямоугольника a и m');

readln (a,m);

s:=a*m;

writeln('s=',s);

readln;

end.

var

a, m,s:word;

begin

writeln('Введи стороны прямоугольника a и m');

readln (a,m);

s:=a*m;

var

a, m,s:word;

begin

writeln('Введи стороны прямоугольника a и m');

readln (a,m);

s:=a*m;

writeln('s=',s);

readln;

end.

begin

writeln('Введи стороны прямоугольника a и m');

readln (a,m);

s:=a*m;

writeln('s=',s);

readln;

end.