[Pascal] Применение функций в программах

[Uralomat]

Составить программу, которая находит двухзначные числа, имеющие при делении на 4 остаток 2, и подсчитывает их сумму.
Применить функцию в программе

[newerow1989]

function z2:integer;
var i:integer;
begin
   Result:=0;
   For i:=10 to 99 do
      If i mod 4=2 then
      begin
         //Writeln(i);
         Result:=Result+i;
      end;
end;

begin
   Writeln(z2);
   Readln;
end.