Паскаль. в первой строке программы задаётся кол-во чисел, не превышающих 300. найти максимальное число, оканчивающееся на 3.

Var i, n, x:integer;
begin
write ('Введите число: ');
readln (n);
for i:=1 to n do
if i mod 10 = 3 then x:=i;
writeln (x)
end.

Пример:
Введите число: 100
93