program Perimetr_Raznostoron_Pryamougolnika;

var
a, b, c, d, P: integer;

begin
writeln('Введите длину стороны a:');
readln(a);

writeln('Введите длину стороны b:');
readln(b);

writeln('Введите длину стороны c:');
readln(c);

writeln('Введите длину стороны d:');
readln(d);

P := a + b + c + d;

writeln('Периметр разностороннего прямоугольника равен ', P);

end.