program 1qq;
var c,b,n,a:integer;
begin
readln(n);
readn(a);
b:=0;
c:=a;
while b<n do begin
b:=b+1;
if a mod 19 = 0 and a mod 23 = 0 then writeln(a);
a:=a+1;
end;
writeln('KONEC');
end.
Відповідь:Логическая операция В логике логи́ческими опера́циями называют действия, вследствие которых порождаются новые понятия, с использованием уже существующих. В более узком смысле, понятие логической операции используется в математической логике и программировании.
Пояснення:
<em>VAR</em>
<em> i, sum: Integer;</em>
<em> a: Array [1..20] of Integer;</em>
<em>BEGIN</em>
<em> for i:= 1 to 20 do </em>
<em> Read(a[i]);</em>
<em> </em>
<em> sum := 0;</em>
<em> for i := 1 to 20 do</em>
<em> sum := sum + a[i];</em>
<em> </em>
<em> Write(sum);</em>
<em>END.</em>