Пожалуйста, напишите програму на паскале!
Спасибо!

var s,b,c:longint;begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); readln(s,b); Writeln(S+s+b+b); writeln(s*b);end.