1 сентября 1985 года информатика стала обязательным предметом во всех образовательных школах а до этого в 1959 году она стала преподаваться в нескольких школах Москвы и Новосибирска
Var
i, n, num, sum: integer;
begin
num:=0;
read(n);
for i:=1 to n do
begin
read(num);
if (num mod 2 = 0) and (num mod 10 = 4) then
sum:=sum+num;
end;
writeln(sum);
end.
Program a 1;
uses robot;
begin
Field(13,13);
Paint;
Down;
Paint;
Down;
Paint;
Down;
Paint;
Down;
Paint;
End.
Var
a, b, c : integer;
begin
write("Введите 1 целое число: ");
readln(a);
write("Введите 2 целое число: ");
readln(b);
c = a + b;
writeln("Сумма равна: ", c);
end.