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.