2 и 3 плиииз Срочно Помогите

2. var a,b,s:integer; begin readln(a,b); s:=a*b; writeln(s); end. 3. var b,c,sum:integer; begin readln(b,c); sum:=(b+c)*10; writeln(sum); end.