Дано дві трійки дійсних чисел. У кожній трійці всі числа різні. Знайдіть середнє арифметичне максимальних чисел кожної трійки.

написать программу на паскале

надо чтобы числа были рандомные, чтобы вписать можно было любое лисло

рандом или с клавиутуры?

кароч, выскакивет окошоко , туда пишешь число так 3 раза протом вторая тройка и оно топределяет число и делает среднее из них

program HelloWorld;var a1,b1,c1,a2,b2,c2:integer; s:double;begin readln(a1); readln(b1); readln(c1); readln(a2); readln(b2); readln(c2); writeln('First'); writeln(a1,'-',b1,'-',c1); writeln('Second'); writeln(a2,'-',b2,'-',c2); if(b1>a1)and(b1>c1) then a1:=b1 else if (c1>a1) then a1:=c1; if(b2>a2)and(b2>c2) then a2:=b2 else if (c2>a2) then a2:=c2; s:=(a1+a2)/2; writeln(s:0:2);end.