program Zada4a_7; {$APPTYPE CONSOLE} var a,b,c,d,e:real; begin write('a=');readln(a); write('b=');readln(b); write('c=');readln(c); write('a+b+c=');readln(d); e:=a+b+c; if d=e then write('correct'); if d<>e then write('wrong'); readln; end.