1 сем / Пробник

Var
c: char; s: integer;
begin
s: = 5;
repeat
read (c);
if c=’5’ then s: ‘YES’;
if c > ‘5’ then s: ‘NO’;
if c < ‘5’ then s: ‘NO’;
end.