Создание информационной базы мастера по ремонту автомобилей средствами прикладного ПО

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

end.

друг сказал) если не правильно извини, но он вродь хорош в информе

из пяти литровой переливаем в трех литровую получаем два литра сливаем их в ведро повтаряем процедуру получаем в ведре четыре литра

program w7w7;

var a: real;

begin

readln (a);

if a< 0 then writeln ('otritsatelnoe chislo');

if a> 0 then  writeln ('pologitelnoe chislo');

end.