Алгоритмы в Паскаль. Фото внутри

Var a,b,c,p,S:real; Begin Write('a = '); ReadLn(a); Write('b = '); ReadLn(b); Write('c = '); ReadLn(c); p:=(a+b+c)/2; S:=Sqrt(p*(p-a)*(p-b)*(p-c)); WriteLn('S = ',S); End. Var a,b,max:real; Begin Write('a = '); ReadLn(a); Write('b = '); ReadLn(b); if a>b then max:=a else max:=b; WriteLn('max = ',max) End.