program main;

var

a, V, V0, t : string;


function findA(pV, pV0, pt: real) : real;
begin
findA := (pV-pV0)/pt;
end;

function findV(pa, pV0, pt: real) : real;
begin
findV := pa * pt + pV0;
end;

function findV0(pa, pV, pt: real) : real;
begin
findV0 :=   pV / (pa * pt);
end;

function findT(pa, pV, pV0 : real) : real;
begin
findT := (pV-pV0)/pa;
end;


Begin

Writeln('Добро пожаловать! Введите данные для формулы a = (V-V0) / t . Если переменная считается неизвестной, вместо её величины введите пустую строку (нажмите Enter)');
Write('а = ');
Readln(a);
Write('V = ');
Readln(V);
Write('V0 = ');
Readln(V0);
Write('t = ');
Readln(t);

if (a = '') then Writeln('Ответ: ', findA(strToFloat(V), strToFloat(V0), strToFloat(t)) );
if (V = '') then Writeln('Ответ: ', findV(strToFloat(a), strToFloat(V0), strToFloat(t)) );
if (V0 = '') then Writeln('Ответ: ', findV0(strToFloat(a), strToFloat(V), strToFloat(t)) );
if (t = '') then Writeln('Ответ: ', findT(strToFloat(a), strToFloat(V), strToFloat(V0)) );



end.