Question

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

Answer 1

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.