print("Рубли: ", end="")
a = int(input())
print("Копейки: ", end="")
b = int(input())
print("Количество: ", end="")
n = int(input())
a *= n
b *= n
while b >= 100:
a +=1
b -=100
print(f"Стоимость:\nРублей - {a}\nКопеек - {b}")
1. 16-57, 8-127, 2-1010111
2. 58
3. 817
Const nmax=50;
var a:array[1..nmax]of integer;
i,n,sum:integer;
begin
readln(n);//количество элементов массива
sum:=1;
for i:=1 to n do
begin
writeln('Введите ',i,' элемент массива');
readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2= 0 then
begin
sum:=a[i]*sum;
write(a[i],' ');
end;
writeln('sum:',sum);
end.