Question

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

Answer 1

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