Построить таблицу истинности f=a v b

A  | b      |  f = a v b 0  |  0    |       0 0  |  1    |      1 1  |  0    |       1 1  |  1    |      1

Var k, j, sum: integer; n,i: longint; prev,cur, found : boolean; s: string; begin   read(n,k);     for i : = 2 to n do begin       s : = inttostr(i);       sum : = 0;       for j : = 1 to length(s) do           sum : = sum + strtoint(s[j]);       cur : = (sum mod k) = 0;       found : = found or (prev and cur);       if prev and cur then           writeln(i - 1,' ',i);                 prev : = cur;   end;   if not found then writeln('no'); end.

Вывести числа от 1 до 20 и от 20 до 40 так же, просто цифры поменяй. var i: integer; begin writeln('1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20'); readln end. вывести квадраты чисел от 1 до 10 var     i: integer; begin     for i: =1 to 10 do       writeln(i: 4,'   ',sqr(i): 4);     readln end. число n вводят с клавиатуры.напечатать n раз число 5 (и оставшиеся 2 можно этой же, просто поменяй кое-какие детали, подумай какие)vari,n: integer; beginwriteln('введите кол-во повторов числа: '); readln(n); for i: =1 to n dowriteln('5'); readlnend.