inc (i); Збільшуємо лічильник на одиницю
writeln ('V vedite:'); Виведення на екран тестової інформації
if i <> 1 then
readln;
repeat Створюємо цикл з постусловіем для перевірки вводу строкових
даних.
prov: = false; Привласнюємо булевої змінної значенні В«БрехняВ»
writeln ('nazvanie'); Виведення на екран тестової інформації
readln (s); Привласнюємо строкової змінної значення
raz: = length (s); Надаємо змінної значення рівне кількості
символів у змінній
if raz <= 10 then Якщо рядок більше допустимого значення те, ми
виводимо повідомлення про помилки зі звуковим сигналом і просимо ввести
значення змінної знову присвоюємо змінної prov значення
Істина якщо у випадку, якщо значення вірне і брехня у випадку якщо не
вірне.
prov: = true else er ('EROR - previsheno k-vo simvolov> 10'); prov = true; Перевіряємо якщо не було помилки при вводі, то
дію
повторно не повторюється.
a [i]. naz: = s; Привласнюємо вірне значення нашої змінної.
repeat; Все аналогічно предедущіх циклу.
prov: = false;
writeln ('priznachennya'); (s);: = length (s);
if raz <= 20 then
prov: = true else er ('ERROR - bolee 20 simvolov v prednaznachenie'); prov = true; [i]. pr: = s; Створюємо цикл з постусловіем для перевірки цілих чисел
writeln ('kilkisti voozliv'); Виведення на екран текстової інформації
readln (s); Привласнюємо строкової змінної значення
val (s, a [i]. vooz, proi); Викликаємо функцію перетворення строковой
змінної в ціле число. У разі якщо виникає помилка, то
змінної proi присвоюється значення - код помилки
if proi <> 0 then Якщо значення більше нуля, значить є помилка введенні. В
разі якщо помилка, то виводимо на екран інформацію, про те, що
сталася помилка і присвоюємо змінної prov значення брехня.
begin prob: = false; er ('EROR - vvedeno ne vernoe znachenie'); end else
prob: = true;
until prob = true; Перевіряємо, якщо значення введеної інформатики
вірно, то припиняємо виконувати цикл.
Repeat Все аналогічно предедущіх
writeln ('Rik vipoosku');
read...
