Дано 4 числа. Если среди них найдется число 999, то напечатать ...

Motes

Program pr;uses crt;Var a,b,c,d:real;BeginWriteln('vv 4 chisla');readln(a);readln(b);readln(c);readln(d);if (a=999) or (b=999) or (c=999) or (d=999) then Writeln('a=',a,' b=',b,' c=',c,' d=',d)                                            else Writeln('sum=',c+d);readln;end.