Question

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

Answer 1

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.