Хелп. решите 3 или 4 задачу. PASCAL ABC

Var    a,b,g,x,S:real; Begin Write('a = '); ReadLn(a); Write('b = '); ReadLn(b); Write('g = '); ReadLn(g); x:=Pi/180*g; S:=1/2*a*b*Sin(x); WriteLn('S = ',S); End. Var    n,a,b,c,d,m:integer; Begin Write('n = ');ReadLn(n); a:=n div 1000; b:=(n div 100) mod 10; c:=(n div 10) mod 10; d:=n mod 10; m:=d*1000+c*100+b*10+a; WriteLn('m = ',m) End.