var
r, L, S, V: Real;
begin
Write ('Введите радиус: ');
ReadLn (r);
L := 2 * Pi * r;
S := Pi * r * r;
V := 4 / 3 * Pi * Power (r, 3);
Writeln ('Длина окружности = ', L);
Writeln ('Площадь круга = ', S);
Writeln ('Объем шара = ', V);
end;
readln(N,M,K); if(((N+K-3) div (K-2)) > (M div 2) then writeln(0) else writeln((N+M+K-1) div K);
Готово.................................
Машина (качественная, чистая, большая )
едет, гудит,стоит
Программа на скрине!
Надеюсь помог!