Написать на языке Паскаль! Помогите плиз

program gg; const  tmx = 60; var  x, y, t: integer;  s: string; begin  t := 10;  readln(x, y);  while t <> tmx do  begin    inc(t, 10);    inc(x, x);    inc(y, y);  end;  if x > y then s := 'Стас'   else   if y > x then s := 'Тарас'  else s := 'никто';  writeln(s);end.