Написать программу в паскале 70 для n введенных с клавиатуры чисел найти сумму положительных, кратных 3

program raf105;

var a,b: integer;

begin

writeln('вводите числа по очереди');

writeln('чтобы закончить введите 0');

a: =1;

while a< > 0 do

begin

  readln(a);

  if (a> 0) and ((a mod 3)=0)

    then b: = b+a;

end;

writeln('сумма положительных чисел, кратных трём: ',b);

end.

язык программирования pascalabc

{$apptype console} uses   sysutils; var     c: string;     i: integer; begin read(c); if length(c) mod 4 < > 0 then     for i: = 1 to 4-length(c) mod 4 do             c: ='0'+c; for i: = 1 to length(c) div 4 do       case strtoint(c[4*i-3]+c[4*i-2]+c[4*i-1]+c[4*i]) of       0000: write(0);       0001: write(1);       0010: write(2);       0011: write(3);       0100: write(4);       0101: write(5);       0110: write(6);       0111: write(7);       1000: write(8);       1001: write(9);       1010: write('a');       1011: write('b');       1100: write('c');       1101: write('d');       1110: write('e');       1111: write('f');       end; readln; end.

1: var a: integer;   begin  writeln('введите число');   read(a);   if (a mod 343 = 0) then writeln('число ',a,' кратно числу 343.')    else writeln('число ',a,' не кратно числу 343.');     end.2 : var a,s,d,e: integer;   begin  writeln('введите трехзначное число: ');   read(a);     s: =a div 100;     d: =(a div 10) mod 10;     e: =a mod 10;     if (s=0)or(d=0)or(e=0) then writeln('число ',a,' содержит 0.')      else writeln('число ',a,' не содержит 0.');     end.