program Project7; {$APPTYPE CONSOLE} var A,B,C,S:integer; begin WRITELN('Vvedit 3 chysla'); readln(A,B,C); writeln('Vvedit sumu'); readln(S); if (A+B+C)=S then writeln('Pravylno ',A+B+C) else writeln('Ne pravylno. Pravylno ',A+B+C); readln; end.