Составить программу в паскалях: даны 3 числа. вывести их на экран с противоположным знаком.

Var a,b,c:real;
begin
write('введите три числа');
read(a,b,c);
a:= - a;
b:= - b;
c:= - c;
writeln('ответ:', a, '  ' , b, '   ', c);
end.