Var a,b,sum:integer;
begin
sum:=0;
for a:=0 to 9 do begin
read(b);
if (b mod 2 =0) then sum:=sum+b;
end;
writeln('сумма чётных чисел sum=',sum);
end.
Program Graduate;
var age: integer;
institute: string;
school: string;
begin
writeln('Введите возраст: ');
readln(age);
if age > 17 then
begin
writeln('Введите ваш университет: ');
readln(institute);
writeln('Хороший институт');
end
else
begin
writeln('Введите вашу школу: ');
readln(school);
writeln('Хорошая школа');
end;
end.