var n:integer;
x1,x2,x3,x4,x5,x6,x7,x8,x9,x10:integer;
begin
read(n);
x1:=n div 1000000000;
x2:=n mod 1000000000 div 100000000;
x3:=n mod 100000000 div 10000000;
x4:=n mod 10000000 div 1000000;
x5:=n mod 1000000 div 100000;
x6:=n mod 100000 div 10000;
x7:=n mod 10000 div 1000;
x8:=n mod 1000 div 100;
x9:=n mod 100 div 10;
x10:=n mod 10 div 1;
writeln('1 = ',x1);
writeln('2 = ',x2);
writeln('3 = ',x3);
writeln('4 = ',x4);
writeln('5 = ',x5);
writeln('6 = ',x6);
writeln('7 = ',x7);
writeln('8 = ',x8);
writeln('9 = ',x9);
writeln('10 = ',x10);
end.
1.y=m1*m2/Sqr(r)
2. Program my;
var S,a,b,h:real;
begin
write('Введите длины оснований и высоты');
readln(a,b,h);
S:=(a+b)*h/2;
readln(S);
end.
3. Program my;
var a:integer;
begin
writeln('Введите трехзначное число');
readln(a);
If (a mod 10=7) then write('Данное число заканчивается на 7');
else write('Данное число не заканчивается на 7');
end.
4.Program my;
var a,b,:integer;
begin
readln(a,b);
If (a>b) then writeln(Sqr(a), b+10);
If (a=b) then writeln('Числа равны');
If (a<b) then writeln(Sqr(b), a+10);
end.
5.
Program my;
var a,b,c:integer;
begin
Readln(a,b);
For c:=a to b do
if (c mod 10=0) then
writeln (c);
end.