ejercicio 14 pascal

Program ana;
Uses winCrt;
Var a,b,c:integer;
Begin

Writeln (' Quien es mayor');
Writeln ('Ingrese a');
Readln (a);
Writeln ('ingrese b');
Readln (b);
writeln ('ingrese b');
Readln (b);
writeln ('ingrese c');
Readln (c);
if (a>b) and (a>c) then
writeln ('mayor es a')
else
if (b>a) and (b>c) then
writeln ('mayor es b')
else
if (c>a) and (c>b) then
writeln ('mayor es c')
end.

ejercicio 13 pascal

Program AB;
Uses winCrt;
Var a,b:integer;
Begin

Writeln (' Ingrese a');
Readln (a);
Writeln ('mayor es b');
Readln (b);
if a>b then
writeln ('mayor es a')
else
writeln ('mayor es b')
End.

program ryz;
uses winCrt;
var x,r,y,z:real;
begin
writeln ('ryz');
writeln ('Ingrese r');
Readln (r);
writeln ('Ingrese y');
Readln (y);
writeln ('Ingrese z');
Readln (z);
x:=(r*r)*(y*y*y)/(z*z);
writeln ('El resultado es:', x:5:3);
End.

Program multiple;
Uses WinCrt;
Var Km, mts, millas, cm, mm: real;
Begin
Writeln ('multiple');
Writeln ('Ingrese mts');
Readln (mts);
Km:= mts*1000;
Millas:= mts*2000;
cm:= mts/100;
mm:= mts/1000;
Writeln ('El resultado es: ', Km:5:3);
Writeln ('El resultado es: ', millas: 5:3);
Writeln ('El resultado es: ', cm: 5:3);
writeln ('El resultado es: ', mm: 5:3);
End.

program circulo;
uses wincrt;
var areacirculo, radio: real;
begin
writeln ('Area de circulo');
writeln ('Ingrese radio');
Readln (radio);
areacirculo:= 3.1416*(radio*radio);
writeln ('El Resultado es: ', areacirculo:5:3);
End.

división

program lucilinda;
uses wincrt;
var
IMC, altura,peso:real;
begin
writeln ('ingrese su peso');
readln (peso);
writeln ('ingrese su altura');
readln (altura);

IMC:= peso/(altura*altura);
writeln (' su IMC es: ',IMC: 3:3);

end.

multiplicación

program tabla;
uses wincrt;
var
multi, a, b : integer;
begin
writeln ('Ingrese a');
Readln (a);
writeln ('Ingrese b');
readln (b);
multi:= a*b;
writeln ('El resultado es: ', Multi);

end.