решить ошибку в задаче по информатике(паскаль)

Program z1;
uses crt;
var k:integer; S:longint;
begin
S:=1;
repeat
writeln ('Введите число');
readln(k);
lf (k mod 100 =15) and (k mod 3=0) then S:=S*k;
until k<>0;
writeln ('Произведение равно');
writeln(S);
readln;
end.

Ошибка в 9 строчке.Пишет "Встречено 'and',а ожидалось ';'"

Как исправить данную ошибку подскажите

Александр1111111254    2   17.05.2020 21:24    0