var
i, c: Integer;
A: array [1..10] of Integer;
begin
Writeln ('Введите десять целых чисел:');
for i := 1 to 10 do begin
Write ('Введите ' + IntToStr (i) + '-е число: ');
ReadLn (A [i]);
end;
c := 0;
if A [i] < 4 then
Inc (c);
WriteLn ('Количество чисел меньше четырех = ' + IntToStr (c));
var
i, c: Integer;
A: array [1..10] of Integer;
begin
Writeln ('Введите десять целых чисел:');
for i := 1 to 10 do begin
Write ('Введите ' + IntToStr (i) + '-е число: ');
ReadLn (A [i]);
end;
c := 0;
for i := 1 to 10 do begin
if A [i] < 4 then
Inc (c);
end;
WriteLn ('Количество чисел меньше четырех = ' + IntToStr (c));
end;