Question

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

Answer 1

var a,b,p: integer;
begin
 write('Длинна: '); readln(a);
 write('Ширина: '); readln(b);
 p:=2*a+2*b;
 write('Периметр равен: ',p);
end.