Составьте программу для решения следующей задачи с использование цикла
с предусловием: «Выведите все точные квадраты натуральных чисел,
не превосходящие данного числа n».

var i,n:integer;beginread (n);i:=0;for i:=1 to n do beginif  sqr(i)<=n thenwriteln (sqr(i));end;end.