Var a,n,i:integer;
Var x:boolean; //Введем флаг, для будущей проверки


Begin
    write ('Введите ваше число, до которого ведем поиск = '); readln(a);
    //Выполним проверку на возможность делить.
    if a<5 then begin
        writeln('Ваше число не делится на 5.');
        exit;
        end
    else writeln('Ваше число подходит для работы.');
    //Проверка окончена, теперь занулим рабочие переменные.
    i:=0;
    n:=0;
    x:=false;
    while i<a do begin
            i:= i+5;
            n:= n+1;
            //Сделаем проверку на превышение.
            if i>a then x:=true;
    end;
    //Вычтем точное значение, т.к у нас цикл обозначен строгостью к меньше
    if x=true then begin
        i:=i-5;
        n:=n-1;
    End;
    //Вывод данных
    writeln('Максимальное значение, кратное пяти: ',i);
    writeln('Номер этого числа: ',n);
End.