Объяснение:
1)
var a,b:integer;
begin
readln(a,b);
if (a>0) and (b>0) then
writeln(a+b)
else
writeln(a*b)
end.
2)
var b:integer;
var a,s:real;
begin
readln(a);
writeln('введите проценты годовых например 14');
readln(b);
s:=a/100*(100+b);
writeln(s)
end.
