Нужно написать рабочую программу Delphi чтобы считала стоимость окон.

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.

сумма=18

семерки нету

или тебе программу написать?

третье, там где пять

5> 4 и не 5> =6

зеркало

коромысло

дупло

дуло

крыло