Question

ПОМОГИТЕ!!!ДАЮ 30 БАЛОВ​

Answer 1

Ответ:

Объяснение:

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.