Question

Составить блок-схему и нaписать программу на языке Паскаль для нажождения периметра произвольного четырехугольника, длины всех сторон вводятся с клавиатуры

Answer 1

Program n1;
var a,b,c,d,p: real;
begin
readln(a,b,c,d);
p:=a+b+c+d;
writeln(p);
end.