Please help su pascal.

Sveiki, gal galetume ispresti uzduotis su pascal:

1. Parašykite programą, kuri randa natūralaus skaičiaus didžiausią skaitmenį.

2. Parašykite programą, kuri apskaičiuotų natūralaus skaičiaus skaitmenų sandaugą.

Kas padetu atsilyginciau.

Atlygis butu saskaitos papildymas.

Štai tavo programos:

1.

program Bevardė6;

var a:longint;
n,i,max:longint;

begin
 Readln(n); //perskaitom skaičiaus reikšmę
 max:=0; //priskiriam pradinę reikšmę
 while n>0 do //sukam ciklą kol baigiasi skaitmenys
 begin
a:=n mod 10; //atskiriam paskutinį skaitmenį
if a>max then max:=a; //jei jis didesnis už ankstesnę didžiausią reikšmę, tai tą reikšmę pakeičiam
n:=n div 10; //numetam atskirtą skaitmenį
 end;
 WriteLn(max);  //išvedam didžiausią reikšmę
 Readln;
end.

2.

program Bevardė6;

var a,n,ats,max:longint;
begin
 Readln(n); //perskaitom skaičiaus reikšmę
 ats:=1;	//priskiriam pradinę reikšmę
 while n>0 do //iškaidom skaitmenimis
 begin
a:=n mod 10; //atskiriam paskutinį skaitmenį
ats:=a*ats;  //kaupiam sandaugą
n:=n div 10; //numetam paskutinį skaitmenį
 end;
 WriteLn(ats);  //išvedam didžiausią reikšmę
 Readln;
end.

Laukiu sąskaitos papildymo. :(

Nenoriu kurt naujos temos tad rasysiu cia.

Gal kas galetu padet issprest si uzdavini pascalio buciau labai dekingas, nes pats nelabai programavime dar orentuojuosi.

Uzdavinys:

Įvedami trikampio kraštinių ilgiai. Apskaičiuokite į trikampį įbrėžto apskritimo spindulį ir išveskite jį 2 ženklų po kablelio tikslumu.

Jei parašytum kaip matematiškai apskaičiuoti tą spindulį, manau parašytčiau programą :)