Известны оценки абитуриента на четырех экзаменах - определить, сколько «5» он получил - Pascal ABC

Формулировка задачи:

Известны оценки абитуриента на четырех экзаменах. Определить, сколько «5» он получил. Я новичок в паскале я делаю begin.writeln.readln и сама формула там. но мне учитель говорит можно решить в 3-5 строчек. но ничего не может объяснить толком. хотелось бы посмотреть наглядно как это выглядит. Спасибо заранее

Решение задачи: «Известны оценки абитуриента на четырех экзаменах - определить, сколько «5» он получил»

Листинг программы

var
  k,a,b,c,d:integer;
begin
  write('Введите оценку: '); readln(a);
  write('Введите оценку: '); readln(b);  
  write('Введите оценку: '); readln(c);  
  write('Введите оценку: '); readln(d);
  k:=ord(a=5)+ord(b=5)+ord(b=5)+ord(d=5);
  writeln('Пятерок получено: ',k);
  readln;
end.

Объяснение кода листинга программы

В данном коде происходит чтение оценок абитуриента с помощью функции readln и сохранение их в переменных a, b, c, d. Затем происходит вычисление количества пятерок с помощью формулы k = ord(a = 5) + ord(b = 5) + ord(b = 5) + ord(d = 5). Полученное количество пятерок выводится на экран с помощью функции writeln.