Очень , за правильный ответ

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 (a<5) then
writeln(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 (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года ');
if(a>104) and (a<110)then writeln(a,' лет');
end.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 uses crt; var a,b,c,d: real;   procedure Plo (s: string; x,y,z: real); var sq: real; begin if ((y+z-x)>0) and ((x+z-y)>0) and ((x+y-z)>0) then    begin    sq:=0.25*(sqrt((x+y+z)*(y+z-x)*(x+z-y)*(x+y-z)));    writeln('Площадь треугольника со сторонами ',s,'=',sq:0:3);    end else writeln('Треугольник со сторонами ',s,' не существует'); end;   begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); write('d='); readln(d); Plo ('a,b,c',a,b,c); Plo ('a,b,d',a,b,d); Plo ('a,c,d',a,c,d); Plo ('b,c,d',b,c,d); end