Дано трёхзначное число. Найти,стоит ли в середине цифра 3. Необходимо написать

var a,b:integer;

begin

 readln(a);

 b:=a div 10;

 b:=b mod 10;

 if (b=3) then  write('Стоит 3') // Если b=3, то выводит 'Стоит 3'

 else write('Не стоит 3') // Если b не одинаково 3, то выводит 'Не  

                                                                                           стоит 3'

end.