Var a,b,c:real;
begin
write(введите три числа);
read(a,b,c);
a:= - a;
b:= - b;
c:= - c;
writeln(Ответ:, a, , b, , c);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.