Используя в каждом случае 4 раза цифру 7 надо получить 6, 8

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

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