Постройте индекс по полю Названия блюд баллов!!!

2000 знаков (но точно не уверен) 

картинка длжна быть в папке с программой и быть в формате bmp

uses graphabc;

var n: string; b: picture; s: integer;

begin writeln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.

var a,b,c,s: real;

begin

  read(a,b);

  c: =sqrt(sqr(a)+sqr(b));

  s: =0.5*a*b;

  write('гипотенуза треугольника равна: ',c,', площадь равна: ',s);

end.

вот программа

program num1;

uses crt;

var

x1,x2,y1,y2 : real;

d: real;

begin

clrscr;

write('x1='); readln(x1);

write('y1='); readln(y1);

write('x2='); readln(x2);

write('y2='); readln(y2);

d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

write('d=',d)

end.