Как отформатировать фильм avi на фильм 3gp

Неплохо форматируется в программе видеомастер

A)pascal var   a,b,c,d, average: real;   begin     writeln('введите 4 числа, каждый ввод закончить нажатием кнопки enter');     readln(a,b,c,d);     average: =(a+b+c+d)/4;     writeln('среднее арифметическое 4-х чисел =  ',average);   end. b)    var      age,high: integer;   ves: real; begin   writeln('введите возраст');   readln(age);   writeln('введите рост );   readln(high); writeln('введите вес ); readln(ves); writeln('ваш возраст  ',age,'ваш рост  ', high, ' ваш вес  ',ves); end. c)  var    n: integer; begin   writeln('введите число n');   readln(n);   n: =n*n; writeln('квадратный корень равен=  ',n); end.

Program r_bp; uses crt; var r,a,b,c,d: real; beginclrscr; write( 'введите через "enter" 4 числа   '); read(a,b,c,d); r: =(a+b+c+d)/4; writeln('ответ ',r); end.2   program r_bp; uses crt; var r,a,b,c,d: real; beginclrscr; write( 'введите ваш рост'); read(a); writeln('введите ваш вес '); readln(r); writeln('ваш вес = ',r,' ваш ростс = ',a); end; var a,b,c,d: integer; x: real; begin   write('введите a,b,c: ');   readln(a,b,c);     //дискриминант   d: =sqr(b)-4*a*c;   if d< 0 then writeln('не имеет смысла')   else   if d=0 then   begin         x: =-b/(2*a);         writeln(x);       end   else   begin         x: = (-b + sqrt(d))/(2*a);         writeln(x);         x: = (-b - sqrt(d))/(2*a);         writeln(x);       end; end.