Дано 4 числа. если среди них найдется число 999, то напечатать все четыре числа, в противном случае – сумму 2-х последних. построить алгоритм действий

Program pr;
uses crt;
Var a,b,c,d:real;
Begin
Writeln('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.

пусть те числа - а,б,с,д.

начало

если а=999 ИЛИ б=999 ИЛИ с=999 ИЛИ д=999

начало

 напечатать а, б, с, д

конец

иначе

начало

 присвоить е сумму с и д.

 напечатать е

конец

конец