Паскаль. Все ** фото

Question

Паскаль. Все на фото

---

Answer 1

Begin
for var i:=ord('A') to ord('A')+readinteger('Введите n: ')-1 do
begin
  for var j:=1 to  i-ord('A')+1 do write (chr(i));
writeln ();
end;
end.

Comments

Выдаёт ошибку: Нельзя преобразовать тип char к integer, что делать?

---

Точнее: внутриблочные перемещения не могут иметь те же имена что и переменные из блока верхнего уровня