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.
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.