Помогите решить две циклических задач (PASCAL) по информатике. Срочно нужно!!!!!!

read(x);
read(y);
read(z);
if (x=y) and (y=z) then
begin
writeln(x);
writeln(y);
writeln(z);
end;
if (y=z) and (x<>y) then
begin
writeln(-x);
writeln(-y);
writeln(-z);
end;
else
begin
x:=2; y:=x; z:=y;
for i:=1 to 3 do
writeln(x);
end;