Excel дано трехзначное число. определить, входит ли в него цифра 4

егора-зеленая на 16гб

василий-желтую на 8гб

пети-краснаяна 4гб

varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.

я пробовала у меня вышло 15 но возможны и другие варианты

мало данных для главное - размер пробоины и размер листа