1. Программа запрашивает два числа, и, если они оба положительные, вычисляет их сумму, иначе вычисляет их произведение.
2. Программа запрашивает сумму кредита А, а так же процент по кредиту В и сообщает, какую сумму S вы вернёте через год. S, А объявляете real в разделе описания переменных.
Объяснение:
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.