Question

Язык программирования ПАСКАЛЬ!!что не так с кодом?

Uses math;
var
V0, V1, V2, t1, a1, t2, a2 : Int64;
begin
read(V0, t1, a1, t2, a2);
V1 := V0 + t1 * a1;
V2 := V1 + t2 * a2;
if (V0 >= V1) and (V0 >= V2) then;
Writeln(V0)
else if (V1 >= V0) and (V1 >= V2) then;
Writeln(V1)
end;
Writeln(V2)
end.

НА ФОТО УСЛОВИЕ!!

Answer 1

Ответ:

Ошибка в отсутствии оператора "begin" после условия в строках 9 и 11. Код должен выглядеть так:

Uses math;

var

V0, V1, V2, t1, a1, t2, a2 : Int64;

begin

read(V0, t1, a1, t2, a2);

V1 := V0 + t1 * a1;

V2 := V1 + t2 * a2;

if (V0 >= V1) and (V0 >= V2) then

begin

Writeln(V0);

end

else if (V1 >= V0) and (V1 >= V2) then

begin

Writeln(V1);

end

else

begin

Writeln(V2);

end;

end.