ПОМОГИТЕ, ПОЖАЛУЙСТА !!!1)Составьте программу, выводящую на экран квадраты чисел от n

1.                                                                        

program raf105;

var n,m,i:integer;

begin

writeln('Введите диапазон чисел (2 числа через пробел) которые необходимо возвести в квадрат');

readln(n,m);

writeln('Вывод:');

for i:=n to m do

 writeln(i**2)

end.

2.                                                                        

program raf105;

var a,b,kol1,kol2:integer;

begin

write('Введите число: ');

readln(a);

while a lt;gt; 0 do

begin

 b:= a mod 10;

 if blt;gt;0

   then if (b mod 2)=0

     then kol1+= 1

     else kol2+= 1;

 a:= a div 10;

end;

writeln('В числе ',kol1,' чётных и ',kol2,' нечётных цифр');

end.

3.                                                                        

program raf105;

var n,i,kol:integer;

begin

write('Введите N: ');

readln(n);

for i:=1 to n-1 do

 if ((i mod 2)lt;gt;0) and ((i mod 3)lt;gt;0) and ((i mod 5)lt;gt;0)

   then kol+=1;

writeln('Вывод: ',kol);

end.

Язык PascalABC

все коды написаны на языке python

1.

n = int(input())

m = int(input())

for i in range(n, m + 1):

print(i ** 2)

2.

n = str(input())

nezet = 0

zet = 0

for i in range(0, len(n)):

if int(n[i]) % 2 == 0:

zet += 1

else:

nezet += 1

print("кол-во нечетных чисел в числе", n, "одинаково", nezet)

print("кол-во четных чисел в числе", n, "одинаково", zet)

3.

n = int(input())

kolvo = 0

for i in range(1, n + 1):

if i % 2 != 0 and i % 3 != 0 and i % 5 != 0:

kolvo += 1

print(kolvo)