3. какую решает фрагмент программы. все переменные имеют целый тип, n> 0
program t1;
var
k, n, p: integer;
begin
k : = 0; n : = p;
while n < > 0 do
begin
k : = k * 10 + n mod 10;
n : = n div 10;
end;
if p = k then writeln('да') else writeln('нет');
end.
