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

WriteLn;

WriteLn('');

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

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

st:=0;

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;

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

WriteLn;

end;

. .

if oper= 11 then

begin

WriteLn;

Delet11(sag);

WriteLn;