Пожалуйста посчитайте!!!ДАЮ 30 Поинтов​

var

a,x:integer;

begin

read(x);

a:=(3-x)*2;

write(a);

end.

var

a,b,c,d:integer;

begin

read(a,b,c,d);

write(a-b);

writer(c+d);

end.