Var str , time, thtime: integer;
Begin
str := 42;
thtime := 5;
While str>0 Do
Begin
str := str-1;
time := thtime+time;
thtime := thtime+2;
End;
write(time,' секунд');
End.
K= 32; m=32/4-5=3;k=3+3*4=15; m=3-15=-12
Площадь круга=пи*R^2
внешний круг=пи*R^2
внутренний=пи*r^2
площадь кольца= пиR^2-пиr^2= пи(R^2-r^2)
пришли фото ,может помогу