1. Напишите программку, которая вводит трехзначное число и разбивает его на

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 agt;120 then
writeln('Неверные данные');
if a=1 then
writeln(a,' год');
if (agt;1) and (alt;5) then
writeln(a,' года');
if((a mod 10 = 1) and (a div 10 lt;gt; 0 or 11 )) then writeln(a,' год');
if (agt;=5) and (a mod 10 lt;gt; 2 or 3 or 4)and (a div 10 lt;gt; 10) then
writeln(a,' лет');
if (alt;=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года ');
if(agt;104) and (alt;110)then writeln(a,' лет');
end.