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

WriteLn(rus(' с указанным'));

WriteLn('');

WriteLn(rus('0 - Выход'));

WriteLn('');

WriteLn(rus('___________________________________________'));

WriteLn('');

Write(rus('Вы будете работать с числами (Тип Integer) - 1 '));

WriteLn(rus('или со строками (Тип String) - 2'));

While (st <> 1) and (st <> 2) do {цикл проверки ввода номера варианта

работы}

Begin

WriteLn(' ');

WriteLn(rus('Выберите номер нужного варианта работы'));

WriteLn(' ');

ReadLn(w);

if (w <> '1') and (w <> '2') then //если выбран не тот вариант работы

begin //выводим сообщение

WriteLn(' ');

WriteLn(rus('Не правильно выбран номер варианта работы'));

end

else

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

end;

WriteLn(' ');

Create2(sag); //процедурасозданияЛОС

st2:=1;

WriteLn('');

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

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