Fisica

{ Yendrison Gutierrez C.I. 19706806 Gilvir Ruzza C.I. 20
Gregori Castillo CI:19695365
}
program ejercicio1;
uses crt; (*Las Variables del Programa*)
var prim1,seg2,terc3,cuart4,n:integer;
begin
writeln ('Esta Aplicacion Calcula La permuta de 4 valores');
writeln('**********************************************************************************');
writeln (' ');n:=0; (*esta es la variable del ciclo while*)
while n<=10 do
begin
{en esta parte del programa el usuario ingresa los valores que se van a permutar}
writeln ('ingrese primervalor'); readln (prim1);
writeln ('ingrese segundo valor'); readln (seg2);
writeln ('ingrese tercer valor'); readln (terc3);
writeln ('ingrese cuarto valor '); readln (cuart4);writeln (' primera permuta * 1 '); {En esta parte del programa se muestran cada unas de las permutas posibles}
writeln ('', prim1,'',seg2,'',terc3,'',cuart4); writeln ('',prim1,'',seg2,'',cuart4,'',terc3); writeln ('', prim1,'',terc3,'',seg2,'',cuart4); writeln ('', prim1,'',terc3,'',cuart4,'',seg2); writeln ('', prim1,'',cuart4,'',seg2,'',terc3); writeln('',prim1,'',cuart4,'',terc3,'',seg2); writeln (''); readkey;
writeln ('permutacion * 2');
writeln ('',seg2,'',prim1,'',cuart4,'',terc3); writeln ('', seg2,'',prim1,'',terc3,'',cuart4); writeln ('',seg2,'',terc3,'',prim1,'',cuart4); writeln ('', seg2,'',terc3,'',cuart4,'',prim1); writeln ('', seg2,'',cuart4,'',prim1,'',terc3); writeln ('', seg2,'',cuart4,'',terc3,'',prim1); writeln (''); readkey;writeln ('permutacion * 3');
writeln ('',terc3,'',seg2,'',prim1,'',cuart4); writeln ('',terc3,'',seg2,'',cuart4,'',prim1); writeln ('', terc3,'',cuart4,'',prim1,'',seg2); writeln('',terc3,'',cuart4,'',seg2,'',prim1); writeln ('',terc3,'',prim1,'',seg2,'',cuart4); writeln ('', terc3,'',prim1,'',cuart4,'',seg2); writeln (''); readkey;
writeln ('permutacion * 4');
writeln ('',...