Chương trình sau đây có hợp lệ không? Nếu không hãy chỉnh sửa lại cho hoàn chỉnh

Chương trình sau đây có hợp lệ không? Nếu không hãy chỉnh sửa lại cho hoàn chỉnh.
Program tinh thuong;
Uses crt
Var s, a, b: =integer;
Begin
Writeln (‘Nhap số nguyen duong a: ‘) Readln (a);
Writeln (‘Nhap số nguyen duong b: ‘) Readln (b);
S:= a /b
Writeln (‘thuong hai so nguyen duong a va b la: ,S:2:2)
Readln
End