информатика: 1) запросить натуральное число и используя while вывести квадраты всех натуральных чисел от 1 до n. 2)запросить натуральные числа и выяснить количество единиц а этом числе. (цикл while)
Помогите пожалуйста!)))

спасибо огромное!!!))))

Задача №1var 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.Задача №2var 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.