[vfxj]

Код:

program Project2;

 {$APPTYPE CONSOLE}

 var
 q,a,z,Result1,result2:integer;//объявление переменных
 begin
 writeln('V=V0+-a*t from it we have V0=V+-a*t');
 writeln('write here value of V');
 readln(q);//чтобы прочитать переменную заданную пользователем
 writeln('write here value of a');
 readln(a);
 writeln('write here value of t');
 readln(z);
 Result1:=q+a*z; //формула по которой высчитывается результат
 result2:=q-a*z;
 Writeln('RESULT in formula with plus: ', Result1);//для вывода результата
 writeln('RESULT in formula with minus', result2);
 Readln;//чтобы приложение не "вылетало"
 end.

Админ: Пользуемся тегами для оформления кода.