Как составить по первой букве имени программу?

Какую программу?????

ответ:Для исполнителя РОБОТ не знаю, а в PascalABC:

Program bukva;

uses GraphABC;

Begin

Line (10,10,10,400);

Line (10,200,150,10);

Line (10,200,150,400);

End.

Объяснение:

var  n : integer; beginreadln (n); case n of1, 2, 12 : writeln ('зима'); 3, 4, 5 : writeln ('весна'); 6, 7, 8 : writeln ('лето'); 9, 10, 11 : writeln ('осень'); end; end.

понадобится 24 секунды.