Срочно, вычислить значение s по алгоритму

Ответ:

s = 220

Объяснение:

Сделал программу вычисляющую s.

var n,s: integer;

begin

n:= 40;

s:= 0;

while n<50 do begin

if (n<50) and (n mod 2 = 0) then s:=s+n;

n:=n+1

end;

writeln(s);

end.