1) Рассмотрите блок-схему. Укажите следующее значение переменной i * 2) Рассмотрите блок-схему. Определите последнее значение переменной s ​

Program triangle;
var Ax,Ay,Bx,By,Cx,Cy,AB,BC,CA:real;
function findlong(x1, y1, x2, y2:real):real;
var x,y,z:real;
begin
findlong:=sqrt(abs(sqr(x2-x1)+sqr(y2-y1)));
end;
begin
writeln('Введите координаты вершины А');
readln(Ax,Ay); {ввод через пробел}
writeln('Введите координаты вершины B');
readln(Bx,By);
writeln('Введите координаты вершины C');
readln(Cx,Cy);
AB:=findlong(Ax,Ay,Bx,By);
BC:=findlong(Bx,By,Cx,Cy);
CA:=findlong(Cx,Cy,Ax,Ay);
writeln('AB=',AB,' BC=',BC,' CA=',CA);
end.

Если остались непонятки или нужно более подробное объяснение, то пишите в комментарии, а лучше в лс (vkcom/ilyahard)

1
Ключевое слово USES указывает программе, что необходимо подключить дополнительный внешний модуль (файл с описанием и определение различных функций) . 
Crt является одним из стандартных модулей. В нем описаны и определены функции для работы с текстовой информацией на дисплее
2
начало блока определения переменных
3
массив
4
ввод данных с клавиатуры
5
тип данных
6
используется для начала исполняемой секции функции, метода объекта, процедуры, программы, свойства объекта или используется для отделения начала выражения блока
7
очистка экрана
8
используется для включения генератора случайных чисел