1. Вводить с клавиатуры числа до тех пор пока не будет

Задачка 1.

var
number, count_of_even_numbers: integer;

begin
writeln(Вводите целые числа. Чтоб завершить программу, введите число 100.);

repeat
readln(number); //программка читает введенное число
if number mod 2 = 0 then //проверка на четность. Если число четное,
count_of_even_numbers := count_of_even_numbers + 1; //наращивает счетчик четных чисел на 1
until number = 100;
writeln(Было введено четных чисел: , count_of_even_numbers, .); // вывод количества четных чисел

end.

Задачка 2.

var
number, count_of_even_numbers: integer;
str_num:string;

begin
writeln(Введите естественное число.);
readln(number); //программка читает введенное число
str(number, str_num); // переводит число в строчную
str_num:=9+copy(str_num,2,length(str_num)-1); // меняет первую цифру на 9
writeln(str_num); //выводит число

end.