这是什么情况？求大师

LZ的语言编写能力让我的强迫症爆发了！！！

var a,b,c,d:integer;
begin
readln(a,b);
c:=a div b;
d:=a mod b;
writeln(a,'+',b,'=',c,'......',d);
end.

示范程序
program LZSB;
begin
while true do writeln（‘LZSB’）;
end.
如程序，引号要打两边

一楼的学过吗？？