Присвоить значение от 1 к 25 - Turbo Pascal

Формулировка задачи:

Привет, помогите сделать так что-бы вместо 1 шли числа от 1 к 25.

                    Листинг программы
                
 
                        
                          
                    
Uses crt;
var
 i, j, n, a, b: integer;
Begin
clrscr;
Write('razmer(50)');
read(n);
 for i:=1 to 80 do
   Begin
     for j:=1 to 25 do
     Begin
     gotoxy(i, j);
       if(j=i) then write(1) else write('0');
     end;
   end;
readkey;
end.

Решение задачи: «Присвоить значение от 1 к 25»

Листинг программы

if(j=i) then write(j) else write('0');

Объяснение кода листинга программы

В данном коде происходит проверка условия if(j=i) then write(j) else write('0')

Переменная j присваивается значение i. Это первый элемент в условии if(j=i).
Если j равно i, то выполняется блок кода write(j). То есть, значение j записывается в вывод.
Если условие if(j=i) не выполнилось, то выполняется блок кода write('0'). То есть, в вывод записывается значение '0'. Таким образом, данный код присваивает значение от 1 до 25, пропуская только те значения, которые равны i. Если значение i больше 25, то в вывод будет записано значение '0'.