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

begin

WriteLn('');

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

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

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

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

end;

WriteLn('');

WriteLn('');

Vopros(w); {процедура вывода списка вариантов дальнейших вариантов работы в ЛОС}

WriteLn;

Begin {Определение какая операция должна

быть запущена}

proverka(w); {вход в процедуру проверки корректности ввода данных}

oper:= StrToInt(w); {перевод числа из строкового типа данных в целочисленный}

if oper=1 then {если была выбрана первая операция, а ЛОС не пуст, выводим сообщение}

Begin

Write(rus('Ваш ЛОС не пустой, для создания нового '));

Writeln(rus('удалите все элементы текущего.'));

Writeln(rus('Выберите вариант дальнейших действий.'));

proverka(w); {вход в процедуру проверки корректности ввода данных}

oper:= StrToInt(w); {перевод числа из строкового типа данных в целочисленный}

end;

whileoper<>0 do {цикл работает пока не выбрана операция выхода из программы}

begin

if (oper>=1) and (oper<=15) then {проверка проходит между пятнадцатью

операциями}

begin

if oper= 1 then