Program Ajax;
Uses WinCrt;
Var a,b,c,multi: integer;
Begin
Writeln ('Segundo programa');
Writeln ('Ingrese A');
Readln (a);
Writeln ('Ingrese B');
Readln (b);
Writeln ('Ingrese C');
Readln (c);
multi:= (a*b*c);
Writeln ('El resultado es: ', multi);
End.
Por Wiliams Contreras
0 comentarios:
Publicar un comentario