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

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.