Автобус -> Вперед (влево) -> Вперед (вниз) -> Вперед (влево) -> Вперед (вверх) -> Вперед (влево) -> Done!
Program n1;
Uses CRT;
Const n=10;
Var a,b,c: integer;
begin
ClrScr;
Writeln('Vvedite a,b i c');
Readln(a,b,c);
If (a<b) and (b<c) then
begin
a:=a*2;
b:=b*2;
c:=c*2;
end
else
begin
a:=abs(a);
b:=abs(b);
c:=abs(c);
end;
writeln;
Writeln(a,b,c);
readln
end.
39. У меня тоже КИТ даю 100% Я с учительницей делала