Помогите пожалуйста с информатикой.Срочно нужно.Дам 80 баллов.​

1. var

a,b,s:integer;

begin

write('ввод значения');

a:=20;

read(b);

s:=a*b;

write(s);

2. var

r,s,n:integer;

begin

read(r);

n:=(2*3,14*r)/0,2;

s:=n*20;

write('нужно '+n+'досок; потребуется '+s+'рублей');

3. 512

сначала переменной а присваиваем значение 2*8+3*16, получаем 16*4, затем считаем b, вместо а у нас уже 16*4, значит 16*2*16 (так как ранее значение b не менялось), выходит 256*2, значит 512