ПОМОГИТЕ ПОЖАЛУЙСТА ПРОШУ ВАС Напишите программку которая при внедрении порядкового

var a: integer;  

begin  

writeln ('Введите номер пальца');

readln(a);

if a=1 then writeln ('Большой палец');

if a=2 then writeln ('Указательный палец');

if a=3 then writeln ('Средний палец');

if a=4 then writeln ('Безымянный палец');

if a=5 then writeln ('Мизинец');

end.