Website and domain for sale: mail@discussmain.com

Algorithms in Pascal. Photo inside

221
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: = else max: = b; WriteLn (max =, max) End.
298
Answer add