Question

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

- var
a, p,s:word;
begin
writeln('Введи длину и ширину прямоугольника a и p');
readln (a,p);
s:=a*p;

-var
a, p,s:word;
begin
writeln('Введи длину и ширину прямоугольника a и p');
readln (a,p);
s:=a*p;
writeln('s=',s);
readln;
end.

- var
a, p:word;
begin
writeln('Введи длину и ширину прямоугольника a и p');
readln (a,p);
s:=a*p;
writeln('s=',s);
readln;
end.