Користувач вводить в програму число n. Програма виводить на екран усі квадрати чисел на проміжку [1..n]

1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.

using System;

using System.Linq;

namespace Prog

{

   public class Program

   {

       public static void Main(string[] args)

       {

       Random rnd = new Random();

       int len = rnd.Next(5,30);

       int[] A = new int[len];

           

       for (int i = 0; i < len; i++)

           A[i] = rnd.Next(-50, 50);

       Console.WriteLine("{0}", string.Join(" ", A));  

       var B = Array.FindAll(A, i => i >= A[Array.IndexOf(A, A.Max())-1]);

       foreach (int i in B)

           Console.Write(i+" ");

       }

   }

}