Запиши программу в Паскале для вычисления площади прямоугольника со сторонами a и m
program gwr;
var
a,m :integer;
begin
writeln('Введите чему равны стороны прямоугльника: ');
readln(a,m);
writeln('Площадь прямоугльника равна ', a * m)
end.