PROGRAM P2;
{Объявление переменных V1, V2 и V для значений скоростей, тип переменных - целые числа со знаком }
VAR V1, V2, V: ??? ;
{Объявление переменных A1 и A2  для значений направлений, значения переменных - символы}
VAR A1,A2: ??? ;
{Начало раздела инструкций}
BEGIN
{Оператор вывода на экран сообщения (просьба ввести скорость первого тела)}
WRITE ('Введите скорость 1 тела');
{Оператор ввода данных (значение переменной V1)}
READLN (V1);
{Тоже для второго тела}
?????????????
?????????????
{Аналогично осуществить ввод направлений движения}
WRITE ('Введите направление 1 тела');
READLN (A1);
?????????????
?????????????
{Условный оператор: проверка условия равенства переменных A1 и A2}
IF  A1 = A2   THEN V := V1 - V2   ELSE  V := V1 + V2;
{Определение модуля вектора ABS - функция вычисление абсолютной величины}
V:=ABS(V);
{Оператор вывода на экран результата вычислений }
????????
{Конец программы, конец раздела инструкций}
END.