Напишите пожалуйста программу…

Program abc; Uses CRT; Var: a,b,c,: integer; P,s: réal; BeginWriteln (" введите значения а, b , c); Redln (a,b,c); p: =(a+b+c) /2; writeln (p); S: =sqrt (p*(p-a)*(p-b)*(p-c); writeln (S); end.