Вывод на экран квадратов чисел от 1 до 30. VAR :integer ; begin for I:=1 to n do writeln(sqr(_)); readln; end.

Для вывода на экран квадратов чисел от 1 до 30 вам следует исправить некоторые ошибки в вашем коде.

Использование переменной VAR : integer; не предполагается. Вместо этого, вы можете использовать переменную I для итерации по числам от 1 до 30.

Вот исправленный код на основе вашего предложения:

begin
  for I := 1 to 30 do
    writeln(sqr(I));
  readln;
end.

Этот код позволит вам успешно вывести квадраты чисел от 1 до 30. Не забудьте скомпилировать и запустить программу, чтобы увидеть результат на экране. Удачи в вашем программировании!