1. ввести три числа, найти их сумму, произведение и среднее арифмитическое: пример: ввести 3 числа. 4 5 7 4+5+7=16 4*5*7=140 (4+5+7): 3=5, 3(3)

Var       a, b, c: integer; begin       readln(a, b, c);       writeln('сумма= ', a + b + c);       writeln('произведение= ', a * b * c);       writeln('среднее= ', (a + b + c) / 3);       readln(); end.

//pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) { определения длины средней линии трапеции, если известны длины оснований трапеции. } var   a,b : real; begin   readln(a,b);   writeln('длина средней линии = ',(a+b)/2); end. {   вычисления площади трапеции,   если известны ее основания и высота. } var   a,b,h : real; begin   readln(a,b,h);   writeln('площадь трапеции = ',(a+b)/2*h); end. {   вычисления расстояния между   двумя точками на координатной плоскости } var   x1,y1,x2,y2 : real; begin   write('координаты 1 точки '); readln(x1,y1);   write('координаты 2 точки '); readln(x2,y2);   writeln('расстояние между точками = ',sqrt(sqr(x1-x2)+sqr(y1-; end. {   вычисления периметра треугольника,   если известны координаты его вершин } var   x1,y1,x2,y2,x3,y3,a,b,c : real; begin   write('координаты 1 вершины '); readln(x1,y1);   write('координаты 2 вершины '); readln(x2,y2);   write('координаты 3 вершины '); readln(x3,y3);   a: =sqrt(sqr(x1-x2)+sqr(y1-y2));   b: =sqrt(sqr(x3-x2)+sqr(y3-y2));   c: =sqrt(sqr(x3-x1)+sqr(y3-y1));   writeln('периметр треугольника = ',a+b+c); end. {   в углу прямоугольного двора размером a*b стоит   прямоугольный дом размером c*d.   подсчитать площадь дома,   свободную площадь двора и длину забора. } var   a,b,c,d,sh : real; begin   write('размеры двора '); readln(a,b);   write('размеры дома '); readln(c,d);   sh: =c*d; //площадь дома   writeln('площадь дома = ',sh);   writeln('свободная площадь двора = ',a*b -sh);   writeln('длина забора = ',(a+b)*2 -(c+d)); end.

// pascalabc.net 3.1, сборка 1218 от 12.04.2016 const   n=10;   type   sot=record   fam: string;   zp: integer;   end;   begin   var sotr: =new sot[n];   writeln('вводите фамилию и через пробел зарплату');   for var i: =0 to n-1 do begin       var s: =readlnstring(i+1+': ');       var ms: =s.split;       (sotr[i].fam,sotr[i].zp): =(ms[0],strtoint(ms[1]));       end;   var r: =sotr.orderby(x-> x.zp).first;   writelnformat('{0} получает всего лишь {1}',r.fam,r.zp) end. тестовое решение: вводите фамилию и через пробел зарплату 1: иванов 32000 2: петров 28000 3: козлов 34000 4: сидорова 41400 5: пупкин 30000 6: кузьмина 36000 7: васечкин 29700 8: бененсон 32500 9: паутова 41000 10: ромашкин 36400 петров получает всего лишь 28000