case <выражение-селектор > of <список значений1>: <оператор1;> <список значений 2>: <оператор2;> … <список значений N>: <операторN> else<оператор> end;
Program Number1; Var a : integer; Begin writeln('Введите цифру '); readln(a); if (a<0) or (a>9) then writeln ('Это число не является цифрой') else case a of 0 : writeln ('ноль'); 1 : writeln ('один'); 2 : writeln ('два'); 3 : writeln ('три'); 4 : writeln ('четыре'); end; readln; End.
var
d:array [1..14] of integer;
a:integer;
begin
for a:=1 to 14 do begin
d[a]:=random(32)-7;
if d[a] mod 5=0 then d[a]:=0;
end;
end.