Дано натуральное число n (n> 999). найти: число сотен в нём, число тысяч в нём. в паскале abc

Var s,t,n: integer; begin writeln('введите n> 999'); readln(n); s: =(n div 100); if s> 10 then s: =s mod 10; t: =(n div 1000); writeln('количество сотен--> ',s); writeln('количество тысяч--> ',t); end.

Var x,n: integer; begin writeln(' введите число '); readln(x); n: =x/100; writeln(' кол во сотен ',n); readln; end.

фамилия

                  имя

          отчество

var s: string;

begin s : = 'видеоадаптер'; writeln(s); writeln(s[3] + s[2]+ s[5] + s[3]); writeln(s[12] + s[6] + s[3] + s[2] + s[5]); writeln(s[9] + s[6] + s[12] + s[10] + s[11] + s[12]); end.