Question

Помогите со 2 заданием СРОЧНО !!!! Даю50 баллов

Answer 1

program su_chet_20_50;

var x,s:integer;

begin

x:=20;

repeat

if x mod 2=0

then

s:=s+x;

x:=x+1;

until x=51;

write(s)

end.