1. Напишите программу, которая вводит трехзначное число и разбивает его на цифры. Например, при вводе числа 123 программа должна вывести 1, 2, 3. 2. Напишите программу, которая вводит возраст человека (число, не превосходящее 120) и выводит на экран этот возраст со словом «»год, «года» , «лет» . например «21 год», «22 года», «15 лет» Помогите пожалуйста !!!!

1 задача
program proga;
var st,st2:string;
i:Integer;
begin
writeln(Введите число);
readln(st);
for i:=1 to length(st) do begin
st2:=st[i];
write(st2, );
end;
end.
2 задача
program proga2;
var st,st2:string;
i,a:Integer;
begin
writeln(Введите возраст);
readln(a);
if a>120 then
writeln(Неверные данные);
if a=1 then
writeln(a, год);
if (a>1) and (awriteln(a, года);
if((a mod 10 = 1) and (a div 10 0 or 11 )) then writeln(a, год);
if (a>=5) and (a mod 10 2 or 3 or 4)and (a div 10 10) then
writeln(a, лет);
if (aif(a>104) and (aend.