Срочно решите срочно решите срочно решите

Question

Срочно решите срочно решите срочно решите

---

Answer 1

T:=50;
k:=10;
while (k<1) do<br>begin
t:=t-5;
k:=k-2;
end;