Найти сумму и произведение всех нечетных двухзначных чисел (алгоритм ипрограмму)

Program z_number; uses crt; var pr,i: integer; beginclrscr; pr: =1; i: =11; {Первое двузначное нечетное число}repeatpr: =pr*i; i: =i+2; until (i>100); writeln ('Произведение двузначных нечетных чисел ',pr); readln; end.