Склавиатуры вводятся 2 числа. составить алгоритм и программу сравнения этих чисел.

Var i, p: integer; m: array [1..4] of integer; begin  writeln('введите 4 числа: ');   for i : = 1 to 4 do  readln (m[i]);   p : = 0;   writeln('четные числа кратные 3: ');   for i : = 1 to 4   do  if (m[i] mod 2 = 0) and (m[i] mod 3   = 0) then  begin    write (m[i], ' ');     inc(p);   end;   if p = 0 then write('таковых нет');   end.

For i: =1 to n do begin a[i]: =random (20); write(a[i],' ') end; for j: =n-1 downto 1 do for i: =1 to j do if a[i]> a[i+1] then begin x: =a[i]; a[i]: =a[i+1]; a[i+1]: =x end; writeln; for i: =1 to  n do write(a[i],' ') в программе: var i,j,n,x: integer; a: array [1..100] of integer; begin readln (n); for i: =1 to n do begin a[i]: =random (20); write(a[i],' ') end; for j: =n-1 downto 1 do for i: =1 to j do if a[i]> a[i+1] then begin x: =a[i]; a[i]: =a[i+1]; a[i+1]: =x end; writeln; for i: =1 to n do write(a[i],' ') end.пример: 103 0 19 18 5 1 4 7 16 8 0 1 3 4 5 7 8 16 18 19 

Pascalabc.net 3.3.5, сборка 1650 от 01.04.2018 внимание! если программа не работает, обновите версию! begin   var s1: =readlnstring('строка-1: ');   var s2: =readlnstring('строка-2: ');   writeln($'длина 1-й строки {s1.length}, второй строки {s2.length}');   s1: =s1.replace('а','о'); writeln('строка-1: ',s1);   s2: =s2.replace('к','л'); writeln('строка-2: ',s2) end. пример строка-1: а роза упала на лапу азора строка-2: карл у клары украл кораллы длина 1-й строки 26, второй строки 26 строка-1: а розо уполо но лопу азоро строка-2: ларл у ллары украл кораллы