Напишите программку на Pascal.Поставить для вас автоматом зачёт либо нет, если норма

Сколько всего оценок, и какие оценки числятся положительными?

5 оценок, оценка считается положительной если она не ниже 3 баллов

то есть 5,4,3-это положительные оценки

Всего оценок 5

Var x1,x2,x3,x4,x5:integer;
begin 
writeln('Введите 5 оценок');
write('Оценка 1: '); readln(x1); 
write('Оценка 2: '); readln(x2); 
write('Оценка 3: '); readln(x3); 
write('Оценка 4: '); readln(x4); 
write('Оценка 5: '); readln(x5);

  if (x1 gt; 2) AND (x2 gt; 2) and (x3 gt; 2) and (x4 gt; 2) and (x5 gt; 2) 
  then  writeln('Зачет автоматом') 
  else writeln('Зачет придется сдавать самому');

end.