Помоги решить, программа Паскаль 1. Для чисел равных 5 от 1 до N вывести квадрат…

{Кратность 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.