введите с клавиатуры три числа если все числа отрицательны и не равны между собой то замените числа их квадратами и выведете результат на экран если все числа равны 0 то сделайте их соответственно равными 5, 20,15 и выведете результат. Иначе найдите и выведете сумму чисел.(в паскале)

Uses crt;var x,y,z:real;beginreadln(x,y,z);if (x<0) and (y<0) and (z<0) and (x<>y) and (x<>z) and (y<>z) thenwrite(x*x,', ',y*y,', ',z*z)else    if (x=0) and (y=0) and (z=0) then write('5, 20, 15')    else write(x+y+z);end.