Beginvar a:=Readinteger('Введите число');write(a mod 100*10+a div 100);end.
11 областей. честно говоря это я так думаю
<span>Program PR1;
Uses crt;
var f:text;
a,i:longint;
begin
clrscr;
assign(f,'Data');
rewrite(f);
for i:=1 to 10 do
begin
readln (a);
write (f,a);
end;
close(f);
end.
и еще надо дописать разрешение файла Желательно</span>
(120 секунд * 44000 Гц * 2 байт) / (1024 * 1024) ~ 10 Мб