найти полную поверхность правильной четырехугольной призмы, если ее диагональ равна корень из 34, а диагональ боковой грани 5? Заранее спасибо)

В комнате стоит установка с тремя лампочками, вне комнаты находятся три выключателя, каждый выключатель к одной лампочке.нужно определить: какой выключатель от какой лампочки, при этом в комнату можно зайти только один раз.

В прямоугольном треугольнике АВС с гипотенузой АВ и углом В, равным 60, проведена высота СD. Найди АD, если DВ=2см.

1)В трапеции ABCD AB=BC=CD. Точки K,L,M и N - середины сторон трапеции. Найдите наибольший угол четырёхугольника KLMN, если угол BAD равен 40∘. Ответ дайте в градусах.

2) В стакане с ручками стоят 6 ручек, которые еще пишут, и 4 ручки, которые уже не пишут. Случайно выбирается одна ручка, с какой вероятностью она пишет?

3)Дана арифметическая прогрессия y1=−323,y2=−113,… Найдите сумму первых шести членов этой прогрессии.

4)Диагонали ромба равны 24 и 7,5. Найдите его площадь.

5)

Вопрос по Delphi 7 я делаю тестирующую программу. И хочу, чтобы по ее завершении выводилось сообщение с помощью showmessage том, сколько баллов я набрал. делаю так:

     ShowMessage('вы набрали '+b+' из '+v);

Видимо я допустил ошибку. b,v - переменные целые. (но я пробовал и преображал в строковые с помощью IntToStr) в чем моя ошибка?