Добрый вечер! необходимо написать 2 программы на языке паскаль! 1) вывести на экран квадраты натуральных чисел от n до m. при этом n> m. ввести с клавиатуры. 2) вывести на экран степени целой величины x. объявить степени longit заранее !

Готово

Var n,m,i:integer;
begin
writeln('n=');
readln(n);
writeln('m=');
readln(m);
if n>m then begin
for i:=m to n do
writeln (i,' в квадрате равно ',i*i);
end
else
writeln('n<m');
end.