Pascal\программирование. Даны целые числа X,Y,Z,W.

Question

Даны целые числа X,Y,Z,W. Если X<y<zZ>W то числа оставить без изменений; В противном случае заменить все числа квадратом.

то что я написал в вопросах вообще не мой вопрос. А чтото искаверканое и обрезаное. Глупые ответы. майл. ру

Иван Ветров · Accepted Answer

Логига токова 
 
x,y,z,w целые (integer) 
квадрат числа (sqrt);

Алена Зиброва · Answer

if (x < y) and (y < z*W) then writeln(x,' ',y,' ',z,' ',W) else 
writeln(sqr(x),' ',sqr(y),' ',sqr(z),' ',sqr(W));