Найдите и исправьте ошибки program primer 1 var a, b, z; integer: bigin write (введите два целых числа ); read (a, b); z=a*b; written ("произведени чисел =',z) writelen '(нажми enter '; ) redlrn; end;

//program primer 1 var a, b, z: integer; begin write('введите два целых числа); read (a, b); writeln('введите два целых числа'); z: =a*b; writeln ('произведение чисел = ', z); writeln ('нажми enter'); readln; end.

1) begin пишется через е 2) не written, а writeln 3) аналогично, не writelen, а writeln 4) не redlrn; а readln end; program primer1; {название без пробелов и с точкой и запятой}uses crt;             {подклжючение необходимых библиотек} var a, b, z: integer; {обьявление переменных, : после переменных, и ; после типа переменных} begin  {начало тела программы, ничего не ставится, так как єто начало исполнения программы}clrscr;   {очиска экрана} writeln(введите два целых числа ); {ln делает вывод на экран после с новой строки} readln(a, b); {данные вводяться каждый с новой строки} z=a*b;   {поск произведения} writeln('произведени чисел =',z) {вывод на экран результата произведения} writeln ('нажми enter '; ) redln; {задержка экрана, чтобы успеть увидеть результат, до нажатия клавишы энтер} end.{конец тела программі, ставиться не точка с запятой, а лишь точка}

1. "современный вариант" // pascalabc.net 3.0, сборка 1076 begin   var t: =arrrandom(31,18,39);   writeln('температуры июля',#13#10,t);   writeln('температуры двух самых теплых дней: ',   t.orderbydescending(x-> x).take(2)) end. тестовое решение: температуры июля [25,25,32,26,30,26,18,31,28,31,24,19,22,34,23,31,27,26,30,21,21,20,18,25,23,22,32,18,37,24,25] температуры двух самых теплых дней: [37,34] 2. "школьный вариант." // pascalabc.net 3.0, сборка 1076 var   t: array[1..31] of integer;   i,max,max2: integer; begin   randomize;   writeln('температуры июля');   max: =0; max2: =0;   for i: =1 to 31 do begin       t[i]: =random(22)+18;       write(t[i],' ');       if t[i]> max then begin max2: =max; max: =t[i] end       else           if t[i]> max2 then max2: =t[i]       end;   writeln;   writeln('температуры двух самых теплых дней: ',max,', ',max2) end. тестовое решение: температуры июля 23 29 22 29 37 37 31 35 18 34 31 31 27 22 27 20 19 24 31 33 26 25 22 28 31 32 21 37 38 37 20 температуры двух самых теплых дней: 38, 37