Ну как чего не хватает... У тебя в цикле for несколько операций (Счетчик и вывод) - для этих моментов (Много операций в цикле) используется begin end;
вставь первое предложение своего вопроса в поисковую строку, увидеш видео в ютубе которое называеться Практична робота 5. там решение.
Мария живет в красном доме, где 2 этажа.
<span>Андрей живет в зеленом доме, где 4 этажа.
</span><span>Сергей живет в желтом доме, где 5 этажей.
</span><span>Ирина живет в синем доме, где 3 этажа.</span>
Var
a,b,p,i: integer;
begin
write ('Введите 2 числа: ');
readln (a,b);
p:=1;
for i:=a to b do
if (i*6) mod 10 =2
then p:=p*i;
writeln (p);
end.
--------------Результат---------------
Введите 2 числа: 1 10
14
13 строка, удали скобки с выражений! then Begin c:=... ; y:=...;else вот так