Задача 1
Результат - 4
Задача 2
var A: array[1..25] of integer;
ki,: integer;
begin
k:=0;
for i:= 0 to 10 do
read(A[j]);
if A[i]>4 then k:=k+1
end;
writeln ('k=', k);
end.
Задача 3
Решение на картинке.
