На паскале :
program task;
var s:byte;
begin
read(s);
case s of
1: writeln('1-2 уровень');
2: writeln('3-4 уровень');
3: writeln('5-6 уровень');
4: writeln('7-8 уровень');
5: writeln('9-10 уровень');
end;
end.
Program z1;
var i,n:byte;
f:int64;
begin
f:=1;
readln(n);
for i:=1 to n do begin
f:=f*i
end;
writeln(f);
readln
<span>end.</span>
1-я Ошибка: пропущено слово array.
2-я Ошибка: of integer написано слитно.
Исправленный вариант: consta:array[1..4]of integer=(11,7,61,107);
Ответ:2)