Задан средний ученика,к какому уровню знаний относится ученик,тема паскаль

Program abc; 
var a:integer;
begin
writeln('Введите оценку ученика');
readln(a);
if (a>2)  then
writeln('Удовлетворительный уровень знаний');
if (a<=2)then
writeln('Не удовлетворительный уровень знаний');
end.