lập chương trình nhập vào số nguyên dương N .Thông báo ra màn hình N có chia hết cho 5 và chia hết cho k hay ko .với k được nhập vào

uses crt;
var n,k:longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   write('Nhap k: ');readln(k);
   if n mod 5=0 then 
      writeln(n,' chia het cho 5')
   else
      writeln(n,' khong chia het cho 5');
   if n mod k=0 then 
      writeln(n,' chia het cho ',k)if n mod 5=0 then 
      writeln(n,' chia het cho 5');
   else
      writeln(n,' khong chia het cho 5');
   else
      writeln(n,' khong chia het cho ',k);
readln
end.

Program Chia;
Uses crt;
Var n,k: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        Write('Nhap k: '); Readln(k);

        If (n mod 5=0) and (n mod k=0) then Write(n,' chia het cho 5 va ',k)
        Else Write(n,' khong chia het cho 5 va ',k);
        Readln
End.