Помогите с программой в паскале

Question

Как составить программу так, чтобы при вводе чисел, если они не равны 1..5 то счетчик увеличивался на 1 и запрашивалось новое число, а если число 1..5 то для переменной выполнить оператор case?

Анастасия · Accepted Answer

var 
 n, c: integer; 
begin 
 while true do begin 
 write('n? '); 
 readln(n); 
 if not (n in [1..5]) then begin 
 inc(c); 
 continue; 
 end; 
 case n of 
 1: write('one'); 
 ...
 5: write('five'); 
 end; 
 break; 
 end; 
end.

Станислав Xxx · Answer

Пишите на почту или в асю 586178755