Лабораторная работа: Структуры и алгоритмы обработки данных

Begin

Write(rus('После удаления первого и последнего элементов Ваш ЛОС’));

Writeln(rus(‘ выглядит так:'));

WriteLn('');

print(sag); //процедура вывода ЛОС на экран

WriteLn('');

Gou(w); {процедура перемещения между

процедурами}

End;

End;

. . .

Begin //Выполнение самой программы

WriteLn(rus('Лабораторная работа студента группы ВСМ 6 05'));

WriteLn(rus('Антонова А.Е.'));

WriteLn(rus('Номер лабораторной # 1.18'));

WriteLn('');

WriteLn(rus('Для более удобной работы в программе'));

WriteLn(rus('разверните окно программы на максимальный размер'));

WriteLn('');

WriteLn(rus('Нажмите Ввод для продолжения'));

ReadLn(W); //ждем нажатия Enter

Whilew<>'' do {проверяем был ли просто нажат Enter или пользователь что-то ввел. цикл будет работать пока пользователь не нажмет просто Enter, без ввода данных}

begin

WriteLn('');

ifw='' then {если был нажат Enter без ввода данных продолжаем работу процедуры}

else {иначе выдаем сообщение}

WriteLn(rus('Будьте внимательны, нужно просто нажать на ввод!'));

ReadLn(W); //ждемнажатия Enter

end;