С:/документы/по_работе/общее/Поздравление/расширение
Program testabc;
var x,y,z:real;
i:integer;
begin
i:=0;
writeln('Введите 3 числа: ');
readln(x,y,z);
if x<0 then i:=i+1;
if y<0 then i:=i+1;
if z<0 then i:=i+1;
Writeln(i,' отрицательных');
<span>end.</span>
I=K*i
i=2048:256=8 бит 1 символ
символов в алфавите