1) выведите на экран 'сегодня понедельник' 2) выведете на экран на языке паскаль а> b, а> 35 3) сделайте запрос на ввод переменной и введите переменную 4) изобразите на языке паскаль, если а> b, то вывести значенин а на экран, иначе вывести b 5) введите с клавиатуры 2 любых числа, найдите их сумму, выведите на экран нужно!

// pascalabc.net 3.2, сборка 1334 от 12.11.2016 begin   var a: =readlnstring('-> ').towords;   a.select((x,i)-> (x,x.length,(x-> x[1]).       thenby(x-> x[0]).select(x-> x[0]).println end. пример -> карл у клары украл кораллы клара у карла украла кларнет кларнет кораллы украла карла клара клары украл карл у у // pascalabc.net 3.2, сборка 1334 от 12.11.2016 begin   var s1: ='abcdefghijklmnopqrstuvwxyz';   var s2: ='defghijklmnopqrstuvwxyzabc';   var s: =readlnstring('-> ');   var p: integer;   for var i: =1 to s.length do begin       p: =pos(s[i],s1);       if p> 0 then s[i]: =s2[p]       end;   writeln(s) end. пример -> abracadabra deudfdgdeud

Var   a: array [1..10, 1..10] of integer;   i, j: byte; begin randomize; writeln(' *** исходный массив *** '); for i : = 1 to 10 do begin       for j : = 1 to 10 do       begin             a[i, j] : = random(41)-20;             write(a[i, j]: 5);       end;       writeln; end; writeln('положительные эл. главной диагонали: '); for i : = 1 to 10 do   for j : = 1 to 10 do       if ((i = j) and (a[i, j] > 0)) then           write(a[i, j], ' '); end.