Здравствуйте, помогите пожалуйста написать программу в Turbo Pascal

Даны три числа а,в,с. Вычислить х1=а²-в^2-с², х2= авс, х3=а+в+с. Определить наименьшее из х1, х2 и х3

алг

нач

цел a, b, c, x1, x2, x3, m

ввод a, b, c

x1:=a**2 - b**2 + c**2

x2:=a * b * c

x3:=1 - c

m:=x1;

если x2 > m то m:=x2 все

если x3 > m то m:=x3 все

вывод x1, x2, x3, m

кон