Дано 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

начало

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

конец

иначе

начало

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

напечатать е

конец

конец