0

i just recently started with pascal, and I have no idea what the compiler tries to tell me. Can anyone tell me whats wrong with these procedures?

```
Uses Crt;
var
Answer: Real;
AnswerB : Real;
AnswerC: Real;
(******************************************************************************************)
procedure GetData;
var
A : Real;
B : Real;
c : Real;
begin
Writeln ('Input value a');
Readln (a);
Writeln ('Input value b');
Readln (b);
Writeln ('Input value c');
Readln (c);
Discriminant (a,b,c);
end;
(******************************************************************************************)
procedure Discriminant;
begin
If ((b*b-(a*a*a*a*c)) > 0)
then Writeln ('There are two different types of roots.');
If ((b*b-(a*a*a*a*c)) = 0)
then Writeln ('The two roots are equal.');
If ((b*b-(a*a*a*a*c)) < 0)
then Writeln ('There are no real roots.');
MaxMin (a,b,c);
end;
(******************************************************************************************)
procedure Vertex;
begin
AnswerC := -b/(2*a)
Writeln ('The Vertex of the equation is ', AnswerC:1:2 ,'.');
end;
(******************************************************************************************)
procedure MaxMin;
begin
If AnswerC > 0
Then WriteLn ('It is the Maximium.');
else
WriteLn ('It is the Minimum.');
end;
```