Процессор - Intel Core i5-3450 Ivy Bridge (3100MHz, LGA1155, L3 6144Kb) - 6000
Материнская плата - ASUS P8Z77-V LX - 3600
Оперативная память - Kingston KVR16N11/8 - 3000
Видеокарта - GIGABYTE GeForce GTX 650 1110Mhz PCI-E 3.0 1024Mb 5000Mhz 128 bit 2xDVI HDMI HDCP - 3600
HDD - Seagate ST1000DM003 - 2100
Блок питания - Thermaltake TR2 RX 750W - 3500
Корпус - Zalman Z12 Plus Black - 2500
Сканер - Epson Perfection V37 - 4500
Монитор - Packard Bell Viseo 223DXbd - 3900
Дешевая клавиатура - 400
Дешевая мышь - 400
--------------------------------
Итого 33500 руб. - 1500 на мороженное.
Директория или может быть каталог.
Поправьте если нужно!
Var n:integer;
begin
repeat
read(n);
if n<1 or n>12 then writeln('Неверный номер месяца');
until n=>1 and n<=12 ;
case n of
1: writeln('Этот месяц - Январь, время года - зима.');
2: writeln('Этот месяц - Февраль, время года - зима.');
3: writeln('Этот месяц - Март, время года - весна.');
4: writeln('Этот месяц - Апрель, время года - весна.');
5: writeln('Этот месяц - Май, время года - весна.');
6: writeln('Этот месяц - Июнь, время года - лето.);
7: writeln('Этот месяц - Июль, время года - лето.');
8: writeln('Этот месяц - Август, время года - лето.');
9: writeln('Этот месяц - Сентябрь, время года - осень.');
10: writeln('Этот месяц - Октябрь, время года - осень.');
11: writeln('Этот месяц - Ноябрь, время года - осень.');
12: writeln('Этот месяц - Декабрь, время года - зима.');
end;
end.