Помогите пожалуйста с информатикой.Срочно необходимо.Дам 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