【新人求教】菜鸟提问

var a,b,c,d:real;
begin
writeln('请输入第一个值');
readln(a);
writeln('请输入第二个值');
readln(b);
writeln('请选择模式');
writeln('1:相乘');
writeln('2:相除');
writeln('3:相除并取整');
writeln('4:相除并取余');
readln(c);
If c:=1 Then d:=a*b;
If c:=2 Then d:=a/b;
If c:=3 Then d:=a div b;
If c:=4 Then d:=a mod b;
writeln('结果为',d);
end.
问题出在哪里