А = «Сейчас нет дождя»
В = «Форточка закрыта»
Составить сложные высказывания

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.

20, если он возьмёт 19 правых, то 20-ая уже гарантирована будет левой и пара будет составлена. если он возьмёт меньше двадцати перчаток, то есть шанс, что все они будут правые.

ответ: 20.

type array100 = array [1..100] of integer; var x,y: array100; i,n,min,max: integer; begin  randomize;   n: =10;   for i: = 1 to n do begin      x[i]: =random(n*10)- 10*n div 2 ;       write(x[i]: 4);       if i mod 10=0 then writeln;   end;     min: =1;   max: =1;   for i: = 1 to n do begin      if x[i]< x[min] then min: =i;       if x[i]> x[max] then max: =i;   end;   i: =x[min];   x[min]: =x[max];   x[max]: =i;         writeln;   for i: = 1 to n do begin      write(x[i]: 4);       if i mod 10=0 then writeln;   end;   end.

var m1,m2,v1,v2: real;

begin

  read(m1,m2,v1,v2);

  if m1/v1 > m2/v2 then writeln('pervoe')

  else writeln('vtoroje');

end.

var a,b: integer;

begin

  read(a,b);

  writeln('a delitel b - ', a mod b=0);

  writeln('b delitel a - ', b mod a=0);

end.