№1

program BuyPensAndPencils;
var
pricePen, pricePencil, totalMoney, pens, pencils: integer;
begin
pricePen := 70;
pricePencil := 20;
totalMoney := 450;

pens := totalMoney div pricePen;
pencils := totalMoney div pricePencil;

writeln('Можно купить ', pens, ' ручек и ', pencils, ' карандашей за ', totalMoney, ' рублей');
end.

№2

program CountNumbersWithTwoSameDigits;
var
count, num, digit1, digit2: integer;
begin
count := 0;

for num := 1000 to 9999 do
begin
digit1 := num mod 10;
digit2 := (num div 10) mod 10;

if (digit1 = digit2) or (digit1 = (num div 100) mod 10) or (digit2 = (num div 100) mod 10) then
count := count + 1;

end;

writeln('Количество четырехзначных чисел с двумя одинаковыми цифрами: ', count);
end.