Помоги решить, программа Паскаль
1. для чисел равных 5 от 1 до N вывести квадрат числа,для остальных вывести "не кратно 5"
2.посчитать сколько из 15 произвольно веденных чисел,чисел больше 15
3. для любого количества произвольных чисел найти сумму положительных

{Кратность 5ти}var i, i1: integer;begin      readln(i1);      for i:=0 to i1 do          if (i mod 5 = 0) then              writeln(i, ': ', sqr(i))          else               writeln(i, ': не кратно пяти');end.--------------------------------------------------{ Больше 15-ти }var i, b, c: integer;begin     for i:=1 to 15 do     begin          readln(b);          if (b > 15) then             c := c + 1;     end;     writeln(c);end.------------------------------const N=5; //Любое кол-во:)var a: real;    i, count: integer;begin     for i:=0 to N-1 do     begin          readln(a);          if (a > 0) then             count := count + 1;     end;     writeln(count);end.