Вычисли x=30+373+6. запиши программу для вычисления x в паскале и выведи на экран.

var x: integer;

begin

x: =30+373+6;

writeln('x = ', x);

end.

// pascalabc.net 3.2, сборка 1385 от 14.02.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в массиве: ');   var m: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   for var j: =0 to m-1 do a[1,j]: =5; a.println(4) end. пример количество строк в массиве: 6 количество столбцов в массиве: 8 *** исходный массив [6,8] ***     9  -3 -27 -90  43 -54    0 -49   -2  91 -12 -10 -21  19  52    5   26  41  79  98  91 -50  87 -50   -23 -24 -63  17 -59  75 -43 -62   -27 -13  93    2 -58 -43 -22 -90     5  94  90 -26  81  46    5 -12     9  -3 -27 -90  43 -54    0 -49     5    5    5    5    5    5    5    5   26  41  79  98  91 -50  87 -50   -23 -24 -63  17 -59  75 -43 -62   -27 -13  93    2 -58 -43 -22 -90     5  94  90 -26  81  46    5 -12

// pascalabc.net 3.2, сборка 1385 от 14.02.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n='),1,9); a.println;   var d: =new dictionary< integer,integer> ;   foreach var e in a do d[e]: =d.get(e)+1;   var s: =d.where(x-> x.value> 1).select(x-> x.key);   if s.count=0 then writeln('нет дублирующихся элементов')   else begin       write('дублирующиеся элементы: '); s.println;       write('в порядке возрастания:   '); s.sorted.println       end end. пример n= 20 6 8 7 3 8 6 4 9 9 3 6 1 6 6 9 7 2 5 9 9 дублирующиеся элементы: 6 8 7 3 9 в порядке возрастания:   3 6 7 8 9