Кабинетте 2 кампьютер ,ноутбук принтер бар. кампьютерлик желини аныктаныз кайсысы болады ​

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.

var a,b,c,d,e: real;

begin

  read(a,b,c,d);

  e: =(a+b+c+d)/4;

  writeln(e: 0: 4);

end.

3 отдельное слово

1 строка

5 абзац

2 весь текст

4 произвольный кусок

формула имеет вид: =b$1*$a2