Информатика: 1) запросить натуральное число и используя while вывести квадраты всех натуральных чисел от 1 до n. 2)запросить

1) uses crt;var n,i,s:integer;beginclrscr;write(\'n=\');readln(n);writeln(\'Полные квадраты в интервале 1 - \',n);i:=1;s:=1;while s<=n do begin write(s,\' \'); i:=i+2; s:=s+i; end;readlnend.Второй вариантvar n,x:integer; begin x:=1; writeln(\'Введите натуральное число\'); read(n); while x<>n do begin write(sqr(x), \' \'); x:=x+1; end; write(sqr(n)); end.2) var x,k:integer; begin k:=0; writeln(\'Введите число\'); read(x); while x>0 do begin if x mod 10=1 then k:=k+1; x:=x div 10; end; writeln(\'Количество едениц в числе = \',k); end.