Привет, мне нужна помощь с домашней работой. Мое домашнее задание во вложениях.

1

Ответы и объяснения

2013-03-18T15:19:30+04:00

var a,b,c:real;
begin
readln (a,b,c);
if (a<b) and (b<c) or (b>
c) and (b<a) then
begin
a:=a*2;
b:=b*2;
c:=c*2;
end
else
begin
a:=a*(-1);
b:=b*(-1);
c:=c*(-1);
end;
writeln (a,' ',b,' ',c);
readln;
end.