Question

Перепишите программу вычисления периметра и площади прямоугольника на языке Паскаль, исправив ошибки:
Program primer
Var a, b, s, p: integer;
Begin ;
Writeln(‘Введите стороны прямоугольника =’
ReadLn(a,b);
P=a+b;
S=a×b;
WriteLn(‘Площадь = ’s);
WriteLn(‘Периметр=’p);
End

Answer 1

Ответ:

program primer;

var a, b, s, p:integer;

begin

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

readln (a, b);

p:=2*(a+b);

s:=a*b;

writeln ('Площадь=', s);

writeln ('Периметр=', p);

end.