oglinda.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program oglinda;
{sa se scrie oglinditul unui nr. }
var  n,r,i,s:longint;
begin
write('n= ');
readln(n);
r:=n;
repeat
      begin
           i:=n mod 10;
           s:=s*10+i;
           n:=n div 10;
      end;
until n=0;
writeln('numarul ',r,' oglindit este ',s);
end.