Помогите с информатикой пожалуйста. Задали написать программу на Паскале по задаче, но вообще не понимаю?

Мне бы такие задания на информатике, спроси у чата gpt

на паскале нельзя писать это еденица измерения

Если меньше 5, то 1
Если больше 5, то 2
Если ни больше, ни меньше (то есть, равно 5), то 3

Ответ: 5

var a,c: integer;
begin
for a:=1 to 10 do begin

if a5 then c:=2
else c:=3;
Writeln(a,' ',c)
end
end.
С=3 при A=5