Задачи на второй и третий признаки равенства треугольников

Помогите найти ошибки в программе

Program Oshibka;
Var a:b;c:Integer;
Begin
Writeln('Введите число ',a);
Readln('a')
b=5
c:=ab;
Writeln('произведение a и b'равно',S);
Readln(a);
End