var d:real;
i,k:integer;
Begin
k:=0;
for i:= 1 to 3 do begin
writeln("Введит число");
read(d);
if (d<0) then k:=k+1;
end;
writeln(k);
End.
<span>
-Компьютер что мы о нем знаем.во первых компютер это машина которая помогает найти нам нужную информацию. Во вторых через компьютер мы общаемся с родственниками и друзьями . В третих компьютер можно назвать ученым изо того что именно он может ответить на любой вопрос . в четвёртых чкловек создал для компьютера игры которые можно скачивать . Компьютеры бывают разные мощные и скоростные . чем смогла тем помогла.
</span>
В паскале или где? А то сделаю не там где надо