program triunghi;
var a, a3, a6: integer;
begin
write('a='); read(a);
a3:=a*a*a;
a6:=a3*a3;
writeln(a:6);
writeln(a3:6, a6:6);
writeln(a6:6, a3:6, a:6);
end.
program ordLitera;
var ch: char;
nrord: integer;
begin
write('introdu caracter: '); read(ch);
if (ch>='A')and(ch<='Z')
then writeln('Litera majuscula cu nr de ordine ', ord(ch)-ord('A')+1)
else
begin
if (ch>='a')and(ch<='z')
then writeln('Litera minuscula cu nr de ordine ', ord(ch)-ord('a')+1)
else writeln(' nu ati introdus litera...');
end;
end.
