ПООООМОООГИТЕЕЕ!!!!

1)Ввести двузначное число. Определить имеется ли в записи числа цифра 3.

ПАСКАЛЬ!

Program z1;var a,b,c:integer;beginWrite('Введите двузначное число: '); read(a);b:=a div 10;c:=a mod 10;if (c=3) or (b=3) then Writeln('В числе присутствует цифра 3')else Writeln('В данном числе нет цифры 3');end.