помогите решить задачу
абитуриент поступая в техникум решает 12 задач, если он решает 4.,5,6 то получает 3, если решает 7,8,9 то получает 4, если решает 10,11,12 то получает 5 , вывести сообщение об оценке
Код:
var
N, k: byte;
begin
writeln('Введите количество задач, решенных студентом:');
write(' N = ');
readln(N);
writeln;
write('Ответ: ');
case N of
4,5,6: k := 3;
7,8,9: k := 4;
10,11,12: k := 5
else
if N < 4 then
begin
writeln(' студент не поступил.');
write('Конец.');
exit
end
else
begin
writeln(' ошибка! столько задач не существует.');
write('Конец');
exit
end
end;
write(' количество баллов - ', k)
end.
N, k: byte;
begin
writeln('Введите количество задач, решенных студентом:');
write(' N = ');
readln(N);
writeln;
write('Ответ: ');
case N of
4,5,6: k := 3;
7,8,9: k := 4;
10,11,12: k := 5
else
if N < 4 then
begin
writeln(' студент не поступил.');
write('Конец.');
exit
end
else
begin
writeln(' ошибка! столько задач не существует.');
write('Конец');
exit
end
end;
write(' количество баллов - ', k)
end.