Составить краткую характеристику одной из поисковых систем. Оформите задание в виде конспекта.

Program n_5;
var  a, d: integer; 
  b, c, f: real;
begin
d := random(1, 8);
  writeln('Для выбора А-92 введите 1. Цена: 20.00руб. за литр');
  writeln('Для выбора А-95 введите 2. Цена: 25.00руб. за литр');
  writeln('Для выбора А-98 введите 3. Цена: 30.00руб. за литр');
  write('Введите марку бензина - ');
  readln(a);
  write('Введите количество литров - ');
  readln(b);
  if (a < 1) or (a > 3) or (b <= 0) then
    write('Ошибка. Введены некорректные значения');
  case a of
    1: c := 20 * b;
    2: c := 25 * b; 
    3: c := 30 * b
  end;
  writeln;
  writeln('Кассовый чек');
  writeln('АЗС: "Полный бак"');
  writeln('Адрес: г.Волгоград, улица Новослободская д.32');
  writeln('Кассир: Иванова Ирина Викторовна');
  writeln('Номер колонки: ', d);
  case a of
    1: writeln('Бензин: А-92');
    2: writeln('Бензин: А-95');
    3: writeln('Бензин: А-98');
  end;
  write('Введите размер оплаты - ');
  readln(f);
  writeln('Сумма к оплате - ', f);
  if f > c then
    writeln('Сдача: ', f - c)
  else
    writeln('Не достаточно средств');
  write('Хорошего дня');
end.

var a: array[1..2,1..4] of real;
    b,c: string; 
    d,x,y: real;
    i,j: integer;
begin
   b:='ABCD';  c:='xy';
   writeln('трапеция ABCD');
   for i:=1 to 4 do
   begin
     writeln('координаты точки ',b[i],': ');
     for j:=1 to 2 do
     begin
       write('   ',c[j],i,' = ');
       readln(a[j,i]);
     end;  
   end;  
   x:=(a[1,3]-a[1,2]+a[1,4]-a[1,1])/2;
   y:=(a[2,3]-a[2,2]+a[2,4]-a[2,1])/2;
   d:=sqrt(x*x+y*y);
   writeln('длина средней линии:  ',d:5:2);
end.

ввод - вывод

трапеция ABCD
координаты точки A: 
   x1 = 3
   y1 = 2
координаты точки B: 
   x2 = 5
   y2 = 5
координаты точки C: 
   x3 = 9
   y3 = 5
координаты точки D: 
   x4 = 10
   y4 = 2
длина средней линии:   5.50