Слелайте система счисления
12.01.2003

var kol,a,b,c: longint;

begin

  read(a,b,c);

  if a< 0 then kol: =kol+1;

  if b< 0 then kol: =kol+1;

  if c< 0 then kol: =kol+1;

  write(kol);

end.

иванов парикмахер, петров плотник, сидоров мельник, гришин почтальон, алексеев маляр.  и 2413      маляр 1

п   142     мельник 2

с   13     плотник 3

г 12      почта 4

а       парикмахер 5

16*2*60/8 мего байт                                                               

с: =(a+b)*(b-a) должно быть ну и тогда с это разность квадратов а и в