Program gg; var a, b, c, x1, x2, d: real; beginwriteln (ââåäèòå êîýôôèöèåíòû a, b, c); read (2, 5, 25); d: b*b-4*a*cif d> 0 then begin x1: =(-5-sgrt(d))/2*a; x2: = (-5+sgrt(d))/2*a; wtiteln (x1; x2); end else if d=0 then begin x1: =(-b)/2*a writeln (x1); end else write (ðåøåíèé íåò) end. это на паскале, нужно скопируйте и вставте её)в 4 строке ошибка какая?

Для вывода текста оператором writeln необходимо указывать текст в скобках например writeln("какой-то текст")

1) пассажир иванов живёт в москве; 2) проводник живёт на полпути между москвой и санкт-петербургом; 3) пассажир-однофамилец проводника живёт в санкт-петербурге; 4) у пассажира, который живёт ближе к месту жительства проводника, чем другие пассажиры, вдвое больше детей, чем у проводника; 5) у пассажира петрова трое детей; 6) сидоров (из поездной бригады) недавно выиграл у машиниста партию на бильярде 7) п1+п3 = проводник не иванов. кто-то из пассажиров живет в с-петербурге 8) п4+п5+п7 = у петрова нечетное кол-во детей, значит он не тот кто живет рядом с проводником. петров живет в с-петербурге 9) п3+п8 =  у проводника фамилия петров 10) п6+п9 = машинист не сидоров. машинист - иванов ответ: иванов

1. современное решение // pascalabc.net 3.2, сборка 1356 от 04.12.2016 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',50); a.println;   writeln('среднее положительных ',a.where(x-> x> 0).average);   writeln('минимум ',a.min) end. пример n= 15 35 27 -7 -1 20 13 6 50 -9 23 -38 46 30 27 14 среднее положительных 26.4545454545455 минимум -38 2. школьный вариант на древних версиях program ex1; const   nn=100; { ограничение на длину массива } var   i,n,s,k: integer;   a: array[1..nn] of integer; begin   randomize;   write('n='); read(n);   k: =0;   for i: =1 to n do begin       a[i]: =random(101)-50;       write(a[i],' ');       if a[i]> 0 then begin           k: =k+1; s: =s+a[i]           end       end;   writeln;   writeln('среднее положительных ',s/k)  end. program ex2; const   nn=100; { ограничение на длину массива } var   i,n,min: integer;   a: array[1..nn] of integer; begin   randomize;   write('n='); read(n);   min: =100; { больше максимально возможного }   for i: =1 to n do begin       a[i]: =random(101)-50;       write(a[i],' ');       if a[i]< min then min: =a[i]       end;   writeln;   writeln('минимум ',min) end. выводы о том, чему и как учат в школе, делайте