program n1;
var num1,num2,i: integer;
numc: string;
begin
write('input number => ');
readln(num1);
numc:=inttostr(num1);
writeln(num1);
for i:=length(numc) downto 1 do
write(numc[i]);
end.
program n2;
var num1,num2,i,sum: integer;
numc: string;
begin
write('input number => ');
readln(num1);
numc:=inttostr(num1);
for i:=length(numc) downto 1 do
sum:=strtoint(numc[i])+sum;
writeln(sum)
end.
program n4;
var num1: integer;
numc: string;
begin
write('input number => ');
readln(num1);
numc:=inttostr(num1);
if numc[2]=numc[1] then writeln('yes')
else writeln('no');
end.
program n5;
var num1,num2,i: integer;
begin
write('input number 1 => ');
readln(num1);
write('input number 2 => ');
readln(num2);
if num1 mod num2 = 0 then writeln('yes')
else writeln('no');
end.
program n6;
var num1: real;
numc: string;
h: integer;
begin
write('input number => ');
readln(num1);
numc:=floattostr(num1);
h:=strtoint(numc[pos('.',numc)+1]);
writeln(h);
end.
