На факультатив по информатике принимают учащихся у которых средний по и информатике не менее 13 будет ли посещать факультатив ученик средний которого l.написать програму (paskal) опираясь на программу 9 класса

Var
L:integer;
begin
writeln('Введите средний ученика: ');
readln(L);
if L>=13 then
writeln('Ученик будет посещать факультатив.');
if L<13 then
writeln('Ученик не может посещать факультатив!');
end.