Помогите пожалуйста
 

ЛБ-
72  Разработайте алгоритм для вычисления площади
поверхности цилиндра: s
= 2πr(h + r); где r
– радиус основания,
h – его высота.

 


ВБ-
69 Разработайте  схему 
алгоритма для нахождения min(a, b, c) целых чисел a, b, c.

 

ЦА-12
Разработайте
схему алгоритма для вычисления суммы S целых 
четных чисел на отрезке [a,b]. Текущее значение целого  числа имеет имя  i.

1)Алгоритм решения задачи: Программа должна запрашивать у пользователя следующую информацию:диаметр бака;высота бака;расход краски (площадь поверхности, которую можно покрасить одной банкой краски).В результате программа должна выдавать количество требуемых банок. При получении дробного числа округление должно всегда происходить в большую сторону.Площадь крыши бака (круга) вычисляется по формуле p * d2 /4 (где p – число пи, d - диаметр).Площадь боковой поверхности цилиндра: p * d * h (где h – высота).Программа на языке Паскаль: const pi = 3.14;   var d, h, b: real;     top, wall, q: real;     q_int: integer;   begin write('Диаметр: '); readln(d); write('Высота: '); readln(h); write('Окрашиваемая площадь одной банкой: '); readln(b);       top := pi * sqr(d) / 4.0;     wall := pi * d * h;     q := (top + wall) / b;     q_int := trunc(q) + 1;   write('Количество банок: ', q_int);   readln end.