Pascal ABC Операторы case of — if then else — for to do — написать программы

Pascal ABC Операторы case of ; if then else ; for to do; Помогите написать программы………………………………………………………………………………

…………………………………………. которые находятся в файле

• Задача 1 Var i,n,a,sum:integer;Begin    Write(‘Введите n: ‘); readln(n);       for i:=1 to n do      if (i mod 2 = 0) then begin     a:=a+1;     sum:=sum+i;                                            end;    Writeln(‘Кол-во четных чисел: ‘,a,’ их сумма = ‘,sum); End.

  Задача 2 Var i:integer;Begin      for i:=100 to 999 do         if (i mod 2 = 0) then write(‘ ‘,i);

  End.

  Задача 3 Var i,k,i1,i2,i3:integer;Begin  Write(‘Введите k: ‘); readln(k);      for i:=100 to 999 do begin   i1:=i div 100;   i2:=i mod 100; i2:=i2 div 10;   i3:=i mod 10;          if (i1+i2+i3 = k) then write(‘ ‘,i);                   end;

  End.