Люди добрые и хорошие посчитайте с информатикой т-т

var t,k: integer;

begin

t:=50;

k:=10;

While k<1 do begin

t:=t-5;

k:=k-2;

end;

Write(t,' ', k); //50 10

end.