Введите с клавиатуры три числа. Если числа равны, то увеличьте их в три раза и выведите результаты на экран

program zadanie1; 
    var x,y,z: integer; 
begin 
    writeln('Программа выполняет определенные действия в зависимости от значений x,y,z'); 
    write('Введите x= ');       readln(x);
    write('Введите y= ');        readln(y);
     write('Введите z= ');        readln(z);
    IF (x=y) and (y=z) and (x=z) then   writeln('Ответ', x+3, y+3, z+3)
Else
IF (x=y) and (y=z) then 
Writeln('Ответ', (-x), (-y), (-z))
Else
writeln('Ответ', x=222,y=222,z=222);
     readln;
end.

program zz;
var i,k:integer;
    a:array[1..9] of integer;
begin
Randomize;
i:=1;
 while i<9 do
  begin
   k:=Random(99);
    if k<10 then k:=10;
   a[i]:=k;
   write(a[i], ' ');
   i:=i+1;
 
   k:=Random(999);
    if k<100 then k:=100;
   a[i]:=k div i;
   write(a[i], ' ');
   i:=i+1;
 
   k:=Random(99);
    if k<10 then k:=10;
   a[i]:=k mod 10;
   write(a[i], ' ');
   i:=i+1;
  end;
readln;
end.

program zz;
Uses Crt;
var i:integer;
    x,y,z:integer;
begin
read(x, y, z);
 if (x=y) and (x=z) then
  begin
   x:=x*3;
   y:=y*3;
   z:=z*3;
   writeln(x, ' ', y, ' ', z);
   readkey;
   exit;
  end;
 
 if (y=z) then
  begin
   x:=-x;
   y:=-y;
   z:=-z;
   writeln(x, ' ', y, ' ', z);
   readkey;
   exit;
  end;
 
 x:=222; y:=222; z:=222;
 writeln(x, ' ', y, ' ', z);
 readkey;
end.