
Помогите пожалуйсто решить, задачу в паскале пожалуйсто

Var
a,a1,b,b1,n,c:longint;
begin
readln(a);
readln(a1);
readln(b);
readln(b1);
readln(n);
c:=n-(a×a1+b×b1);
writeln(c);
end.
если я правильно понял то так
Оцени ответ
Вход
Регистрация
Задать вопрос
Var
a,a1,b,b1,n,c:longint;
begin
readln(a);
readln(a1);
readln(b);
readln(b1);
readln(n);
c:=n-(a×a1+b×b1);
writeln(c);
end.
если я правильно понял то так