Составить программу в pascal abc по этим числам 18082000 в onvector

program masha;

uses drawman;     begin        field(20,20);       onvector(1,8);       pendown;       onvector(0,8);         onvector(2,0);       onvector(0,0);     end.

Здравствуй! Все в перемешку и нет обьявление переменных

Объяснение:

После того как не было ошибок консольное приложение запустилось

После выполнение очистки консоли выводится подсказка для пользователя, по подсказке вводим текст

После ввода текста, переменеая присваевает его

Происходит сравнение больше или равно по циклу если истинно true или ложь falce(может быть не больше и не равно !＝) в этом ложь

Дальше у тебя должно быть под каждым begin end; у каждого начала свой конец

Таже продолжается проверка условие begin и end;

Ранее переменная s по введенным данным была присвоена цифре продолжается проверка условий true и folse по выражении ранее (I<=Length(s)) продолжается проверка условие

Еще раз выводит после сравнение значение на переменную(не сама она, а значение ее)после подсказки и завешается работа программы

end.