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.
