Введи данные с помощью описания констант.даны периметр четырёх угольника Р= 194 и стороны...

Question

Введи данные с помощью описания констант.даны периметр четырёх угольника Р= 194 и стороны А=56, С= 23 B= 42. Найти сторону D четырёх угольника

Answer 1

Const
a=56;
b=42;
c=23;
p=194;
var d:integer;
begin
d:=p-(a+b+c);
writeln('D сторона равна ',d);
end.