Приведу пример кода на Pascal для определения, является ли фигура, образованная тремя заданными точками, параллелограммом.

program CheckParallelogram;
type
Point = record
x, y: Integer;
end;
var
A, B, C: Point;
function IsParallelogram(A, B, C: Point): Boolean;
begin
IsParallelogram := (B.x - A.x = C.x - A.x) and (B.y - A.y = C.y - A.y);
end;
begin
// Ввод координат точек
WriteLn('Введите координаты точки A:');
ReadLn(A.x, A.y);
WriteLn('Введите координаты точки B:');
ReadLn(B.x, B.y);
WriteLn('Введите координаты точки C:');
ReadLn(C.x, C.y);
// Проверка является ли фигура параллелограммом
if IsParallelogram(A, B, C) then
WriteLn('Фигура образованная точками A, B, C является параллелограммом')
else
WriteLn('Фигура образованная точками A, B, C не является параллелограммом');
end.

В данном примере программа запрашивает координаты трех точек A, B и C, после чего проверяет, является ли фигура, образованная этими точками, параллелограммом и выводит соответствующее сообщение.