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

Question

artem_nikolaev · Accepted Answer

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;

user_749970 · Answer

Да ты реально - ленивый! Вот правельный ответ выше! А с чей тетради копировал? Экзамен что ли?

dmitrii_1701 · Answer

ты на не веселый паренек а ленивый, помочь эт по твоему как? за тя все сделать что ли? тут работы от силы на 15 минут! делай сам халявщик!

petrus_6 · Answer

секунду подожди....щас прийду