ВЫПОЛНИТЬ В ПАСКАЛЕ!

Дано целое число N (> 0). С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N цифра «2». Если имеется, то вывести True, если нет — вывести False.

Заранее спасибо :3

var 

a,a1:integer;

check:boolean;

begin

check:=false;

readln (a);

while (a<>0) do

begin

a1:=a mod 10;

a:=a div 10;

if (a1=2) then check:=True;

end;

writeln (check);

end.

var    num: integer;    has2: boolean;begin    has2 := false;    read(num);    while (num <> 0) do    begin        if (num mod 10 = 2) then has2 := True;        num := num div 10;    end;    writeln(has2);end.