6. Написать программу тремя способами ( с циклами «ДО», «ПОКА» и с параметром ). Задача: Ввести n чисел. Найти сумму четных из них. Проанализируйте решения. Какое проще и почему?

uses crt; var s,n,ch:integer; begin for i:=1 to n do begin if ch mod 2 = 0 then s:=s+ch; end; end.   uses crt; var s,n,ch,i:integer; begin i:=1; while i <=n do begin if ch mod 2 = 0 then s:=s+ch; inc(i); end; end.     uses crt;var s,n,ch,i:integer;begin i:=1;n:=5;repeatbeginreadln(ch);if ch mod 2 = 0 thens:=s+ch; inc(i);end;until i>=n; writeln(s);end.