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

Question

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

---

Comments

можешь написать

---

Что надо сделать

---

program Main; var a, a1, b, b1, N, C: integer; begin writeln('введите а'); readln(a); writeln('ваедите b'); readln(b); writeln('введите a1); readln(a1); writeln('введите b1'); readln(b1); writeln('введите N'); readln(N); C:=N-(a*a1+b*b1); writeln(C); end.

Answer 1

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.
если я правильно понял то так