Решить задачи в паскале

Program dvyzna4; var i: integer; beginrepeatwriteln ('Введите число='); readln (i); until (i>=10) and (i <= 99); writeln ('1-ая цифра=',i div 10); writeln ('Трехзначное=',i div 10,'0',i mod 10); end.