Теперь Кью работает в режиме чтения

Мы сохранили весь контент, но добавить что-то новое уже нельзя

Создать программу на языке Паскаль

Вот как у меня получилось. Как сделать так, чтобы один и тот же кусок сам повторялся n раз? Или лучше вообще по-другому написать эту программу? Как бы написали вы? 
ИнформатикаПаскаль+3
Мария  ·   ·
Лучший
Светлана
  · 3 янв 2023
Нужно кусок "for a … write('*')" поместить в еще один цикл - для прохода по строкам, а в начале добавить ввод числа n:
program figure;
var
  a, b, n: integer;
begin
  write('введите n: ');
  readln(n);
  for b:=1 to n do
  begin
    for a:=1 to n do
      write('*');
    writeln;
  end;
end.