помогите на фри паскале.
дано пятизначное число. что поучится если поменять в нём местами 1 и 4 цифру. и
-----------------------------------------------------------------------------------------------------------------------
дано трёхзначное число. найти сколько в нём сотен.

  • {Дано целое число, больше 999. Используя одну операцию деления нацело и одну
    операцию взятия остатка от деления, найти цифру, соответствующую разряду сотен
    в записи этого числа. В ответе получается 21735.-->7 }
    program sotni;
    uses crt;
    var a: longint;
    begin
    clrscr;
    write('vvesti chislo --> '); readln(A);
    writeln(a div 100 mod 10);
    readln;
    end.
  • 1)var s: string;
    ch: char;
    begin
    read(s);
    ch:=s[1];
    s[1]:=s[4];
    s[4]:=ch;
    Write(s);
    end.
    2) a div 100
  • program pr1;
    var i:integer;
    s,a:string;
    begin
    i := 12345;
    s : = IntToStr(i);
    a := s[1];
    s[1] := s[4];
    s[4] := a;
    writeln(s);
    End.