Var
x:integer;
y:real;
begin
readln(x);
if x < 0 then
begin
y:= 1/x*x;
end
else
y:=x/6;
writeln(y);
end.
Если не ошибаюсь способов 2
Если на один символ — 2 байта, то как я понимаю, на восемнадцать символов— 18*2=36 байтов.
Горизонтальная ось Х вертикальная У
пересечение оси О