Программа pascalabc : даны три числа.написать программу, для подсчета количества чисел, равных нулю.

Program zadacha;   var a, b, c, n: real; begin ; writeln ('введите значения a, b, c'); readln (a, b, c);   n: =0; if a=0 then n: =n+1; if b=0 then n: =n+1; if c=0 then n: =n+1; writeln ('чисел равных нулю ', n);   end.

Const     n = 33; var     a: array[1..n] of integer;     i,c,p: integer; begin c: =0; p: =0; randomize; write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(2*n+1)-n;       write(' ',a[i]);       if a[i] mod 2 = 0 then c: =c+1;       if (a[i] mod 5 = 0)and(a[i] mod 10 < > 0) then p: =p+1       end; writeln; writeln('количество чётных чисел: ',c); writeln('количество чисел, оканчивающихся на 5: ',p); end.

Var a,b,c: byte; begin for a: = 1 to 9 do       for b: = a+1 to 9 do               for c: = b+1 to 9 do                       write(a,b,c,' ') end. var     p: real;     a: integer; begin p: =1; repeat read(a); if a mod 2 < > 0 then p: =p*a; until a = 0; writeln('p = ',p) end. var     n: integer; begin write('n = '); readln(n); for n: = 1 to n do       write(n*n,' ') end.