решить ошибку в задаче по информатике(паскаль)
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',а ожидалось ';'"
Как исправить данную ошибку подскажите
// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(ReadInteger('n='), 1, 100); a.Println; // общее
Println('Максимальный четный ', a.Where(t -> t.IsEven).Max); // задача 1
Print('Второй минимальнывй нечетный'); // задача 2
a.Where(t -> t.IsOdd).OrderDescending.Skip(1).Take(1).Println // задача 2
end.
Пример
n= 15
67 8 60 1 96 40 73 25 39 93 64 89 40 69 9
Максимальный четный 96
Второй минимальнывй нечетный 89