Информатика. Помогите
1)Написать программу, которая запрашивает одно число-количество учащихся в классе, и выводит минимальное количество парт, необходимое для рассадки по 2 человека.


2)Написать программу, которая запрашивает одно натуральное пятизначное число, и выводит его третью цифру.


3)Для покраски стен и пола комнаты шириной а метров, длинной b метров и высотой с метров(а,b и с-целые числа) необходимое закупить краску. Известно, что одной банки крачки хватает на покраску k кв.метров поверхности.Найти минимальное необходимое количество банок краски. Прогорамма должна получать на выход четыре числа-ширина, высота, длина и количество кв.метров, на которое хватает одной банки краски, и выводит необходимое количество банок.

{1}varn : longint;beginreadln (n);write ( (n div 2) + (n mod 2));end.{2}varn : longint;beginrepeatreadln (n);until (n in [10000..100000]) and (abs(n) = n);write ( ((n mod 1000) - (n mod 100)) div 100 );end.{3}vara, b, c, sqrM, sum : longint;beginreadln (a, b, c, sqrM);sum:=(((a+b)*c)*2 + a*b) div sqrM;if ((((a+b)*c)*2 + a*b) mod sqrM)<>0 then inc(sum);write (sum);end.