Подскажи как на решу ВПР после выполнения варианта отправить работу учителю? ​

var S, V, V1: real;

     t1, t2: real;

     b: boolean;

begin

  b:=false;

  repeat

    writeln('Введите расстояние между пунктами А и Б');

    readln(S);

    if S<0 then

      begin

        writeln('Отрицательное расстояние. Повторите ввод');

        continue;

      end;

    writeln('Введите среднюю скорость самолета');

    readln(V);

    if V<0 then 

      begin

        writeln('Отрицательная скорость. Повторите ввод');

        continue;

      end;

    writeln('Введите скорость встречного ветра');

    readln(V1);//Если ветра нет нужно ввести 0

    if V1<0 then

      begin

        writeln('Отрицательная скорость. Повторите ввод');

        continue;

      end;

    b:=true;

  until b = true;

  if V1>0

  then

    begin

      t2:=S/V;

      writeln('Время полета: ', t2);

    end

  else

    begin

      t1:=(V-V1)/S;

      writeln('Время полета: ', t1);

    end;

end.

+ добавил разницу

Объяснение:

//Программа просит пользователя ввести два числа, получает числа от пользователя>>

//и затем печатает сумму, произведение, разность и частное этих чисел.

#include <iostream>

using namespace std;

int main()

{

   int x, y, sum, pr, razn, chastn; //объявление

   setlocale(LC_ALL, "Russian"); //руссификация командной строки

   cout << "Введите два целых числа через пробел "; //приглашение

   cin >> x >> y; //прочитать два целых числа

   sum = x + y;  

   pr = x * y;

   razn = x - y;

   chastn = x / y;

   cout << "Сумма чисел: " << sum << endl << "Произведение чисел: " << pr << endl ;

   cout << "Разность чисел: " << razn << endl << "Частное чисел: " << chastn << endl;

   _getch();

   return 0; //показывает, что программа успешно завершена

}