var a,b,c:integer;
begin
randomize;
a:=random(60)-20;
b:=random(60)-20;
c:=random(60)-20;
write(a,' ',b,' ',c);
readln;
end;
var a,b,c:integer;
begin
randomize;
a:=random(60)-20;
b:=random(60)-20;
c:=random(60)-20;
write(a,' ',b,' ',c);
readln;
end;