Введите с клавиатуры три числа если все числа отрицательны и не равны между собой то...

Question

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

Answer 1

Uses crt;
var x,y,z:real;
begin
readln(x,y,z);
if (x<0) and (y<0) and (z<0) and (x<>y) and (x<>z) and (y<>z) then
write(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.