Program lolol;
Var s, n, i:Integer;
Begin
Readln(s);
Readln(n);
Writeln('Квадраты чисел:');
For i:= 1 to s do
Writeln(i*i);
Writeln('Кубы чисел:');
For i:= 1 to n do
Writeln(i*i*i);
End.
(Паскаль)
Объяснение:
Начало - переменные s, n, i - ввод s - ввод n - вывод *цикл s* - вывод *цикл n* - конец.
