Помогите пожалуйста!!! Нужно записать фразу на Паскале

Тут строчки не написались. Сам додумайся где новая строчка 

Var a :abc; Begin Writeln ('не понял что написано в прямоугольнике. Напиши вместо этого. '); Readln (a); If a='да' Then Begin Else Begin End.