Даны три целых числа. найти количество положительных чисел в исходном наборе.

Program one; var a,b,c,k: integer; begin writeln ('введите числа, нажимая после каждого enter'); readln (a); readln (b); readln (c); k: =0; if a> 0 then k: =k+1 else k: =k+0; if b> 0 then k: =k+1 else k: =k+0; if c> 0 then k: =k+1 else k: =k+0; writeln ('количество положительных чисел  ', k) end.

Program arrays; var a: array [1..3,1..6] of integer;     i,j: byte; begin for i: =1 to 3 do        for j: =0 to 1 do              begin                        a[i,1+3*j]: =random(101)+10;                           a[i,2+3*j]: =random((1001)+100) div (i+2*j);                           a[i,3+3*j]: =(random(101)+10) mod 10;                 end;       for i: =1 to 3 do                begin                              for j: =1 to 6 do                                                write(a[i,j],'   ');                             writeln;                 end;   end. //если нужны пояснения - пишите

Const   blanks = [' ']; function posblank(s: string; pn, pk: integer): integer; {   ищет в строке s в позициях от pn до pk пробельный символ.   возвращает его позицию в строке или ноль, если таковой символ не найден.   использует подмножество пробельных символов blanks, что позволяет определять   произвольный набор пробельных символов (например, табуляцию и т.д.) } var   p: integer;   flag: boolean; begin   p : = pn;   flag : = true;   while flag and (p < = pk) do   begin       if s[p] in blanks then flag : = false       else p : = p + 1   end;   if p > pk then posblank : = 0   else posblank : = p end; function posnonblank(s: string; pn, pk: integer): integer; {   ищет в строке s в позициях от pn до pk непробельный символ.   возвращает его позицию в строке или ноль, если таковой символ не найден.   использует подмножество пробельных символов blanks, что позволяет определять   произвольный набор пробельных символов (например, табуляцию и т.д.) } var   p: integer;   flag: boolean; begin   p : = pn;   flag: =true;   while flag and (p < = pk) do   begin       if s[p] in blanks then p : = p + 1       else flag : = false   end;   if p > pk then posnonblank : = 0   else posnonblank : = p end; var   s: string;   i, l, k: integer; begin   write('введите строку: ');   readln(s);   l : = length(s);   k : = 0;   i : = posnonblank(s, 1, l);   while (i> 0) and (i < = l) do   begin       k : = k + 1;       i : = posblank(s, i + 1, l);       if i = 0 then i : = l + 1       else i : = posnonblank(s, i + 1, l)   end;   writeln('количество слов в строке равно ', k) end.