Вывести таблицу чисел от 30 до 40 и их квадратов.Составить блок схему

Вместо write напиши Writeln только

так как таблица нужна же

Pascal:program Project;var  i, q:integer;begin  for i:=30 to 40 do  begin     q:=sqr(i);     write(i,' ',q);  end;end.