program nrordineLitere;
var ch: char;
cod:integer;
begin
writeln(' codurile literelor mari;');
for ch:='Z' downto 'A' do
write(ch:4);
writeln;
for ch:='Z' downto 'A' do
write(ord(ch):4);
writeln; writeln;
writeln(' codurile literelor mici;');
for ch:='z' downto 'a' do
write(ch:4);
writeln;
for ch:='z' downto 'a' do
write(ord(ch):4);
writeln;
end.
program nummax;
var n, i: integer;
num, maximal:real;
begin
write('n= '); read(n);
writeln(' introdu ', n,' numere reale: ');
read(num);
maximal:=num;
for i:=2 to n do
begin
read(num);
if (num>maximal) then maximal:=num;
end;
writeln(' cel mai mare este ', maximal);
end.
