Pascal Fatal：语法错误，“;”预期，但发现其他

Question

program tweet;
uses crt;
var
    tweet : boolean;
    jumlahlike : integer;
    jumlahretweet : integer;
    jumlahfavorit : integer;

begin
    clrscr;
    writeln(' Popularity Tweet');
    writeln('Insert  Like : ');
    readln(jumlahlike);
    writeln('insert Retweet : ');
    readln(jumlahretweet);
    writeln('insert favorite : ');
    readln(jumlahfavorit);
    If (jumlahlike = 500) or (jumlahretweet = 300) or (jumlahfavorit = 800);
      tweet := 'Very Popular Tweet';
    Else if (100 <= jumlahlike < 500) or (100 <= jumlahretweet < 500) or (700 <= jumlahfavorit < 800);
    tweet := 'Popular Tweet';
    Else if (100 <= jumlahfavorit < 700   
        tweet := 'jumlahfavorit Tweet';
    Else if(jumlahlike < 100) or (jumlahretweet < 100) or (jumlahfavorit < 100);
        tweet := 'Ordinary Tweet';
    writeln('How Tweet',tweet);
    readln;
end.