Введи данные с описания констант.даны периметр четырёх угольника р= 194 и стороны а=56, с= 23 b= 42. найти сторону d четырёх угольника

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