Cho đoạn chương trình bị lỗi. Em hãy viết lại chương trình cho đúng

Cho đoạn chương trình bị lỗi. Em hãy viết lại chương trình cho đúng:
Var n,m:Integer;
Begin
Write('Nhap n=');Readln(n);<br />Write('Nhap m= );
s:= n/m
writeln(ket qua phep toan la s);
Readln
end *