Вопрос Найти и исправить ошибки в тексте программы.

[patrikella1]

Продемонстрировать успешное выполнение кода в среде программирования.

вот сам код который нужно исправить:

Program 1DemoCRT1;
Uses crt;
Var Row, Col, N:real;
Begin
Writeln (Введите номер текстового режима;
Write Ln (‘0,1,2,3,5,7:’);
Readln (N)
Text Mode(N);
Clr Scr;
Write (‘Введен текcтовый режим: N);
Coll=1;
For Row:=2 to 25 do
Begin
Go to XY(Coll,Row);
Wrety (Ввод текста);
Coll:=Coll+2;
Delay(200.5)
End;
End.

 

[y7krgKt4dyuS]

6 строка Writeln слитно

 

[pirogtv]

1-я строка: имя программы не может начинаться с цифры. 3-я строка: должен быть целочисленный тип данных (например integer). 5-я строка: текст в скобках возьми в одинарные кавычки. 6-я строка: Write Ln пишется слитно. Текст в скобках в одинарных кавычках должен быть. 7-я строка: в конце поставь точку с запятой. 8-я строка: Text Mode пишется слитно. 9-я строка: Clr Scr; пишется слитно. 10-я строка: Текст в скобках в одинарных кавычках должен быть. 11-я строка: На конце лишняя буква l. после Col не хватает двоеточия. Должно быть Col:=1; 14-я строка: Go to XY все это пишется слитно. 15-я строка: Вместо Wrety должно быть Write. Текст в скобках в одинарных кавычках должен быть. 16-я строка: В имени переменной Coll лишняя буква l на конце. 17-я строка: Параметр процедуры Delay должен быть целым числом. P.S. Вроде всё...