Вычислить в паскале a=(b+c)*d-k

Program asd;var a,b,c,d,k:integer;begin Write('Write B: '); Readln(B);  Write('Write C: '); Readln(C);   Write('Write D: '); Readln(D);    Write('Write k: '); Readln(k);    a:=(b+c)*d-k;    Writeln('Resul: ',a);end.

Var b,c,d,k,s:integer; begin Writeln('b:');  readln(b);  Writeln('c:');   readln(c);   Writeln('d:');    readln(d);    Writeln('k:');     readln(k);       s:=b+c*d-k;    Writeln(s);end.