program maioral;
var maiornota, nota1, nota2: integer;
function maior(x, y: integer): integer;
begin
if x > y then maior := x;
else maior := y;
end;
begin
readln(nota1, nota2);
maiornota := maior(nota1, nota2);
writeln(maiornota);
end.
function poti(x: real; n: integer):real;
var i: integer;
p: real;
begin
p := 1.0;
for i := 1 to n do p := p * x;
poti := p;
end;
function potr(x, y: real): real;
begin
potr := exp(y * ln(x));
end;
program raios_duplos;
var raio, area, volume: real;
procedure esfera(r: real;var a,v: real);
const pi = 3.141592;
begin
a := 4 * pi * sqr(r);
v := r * a / 3;
end;
begin
readln(raio);
esfera(raio, volume, area);
writeln(raio, volume, area);
end.
program frescura;
procedure escreve(n: integer);
begin
writeln('********');
write('* ', n: 4, ' *');
writeln('********');
end;
begin
escreve(1999);
end;
{ Acha o maior valor em um vetor }
program acha_maior;
type vetor = array [1..50] of integer;
var nota: vetor;
k, maiornota: integer;
function max(v:vetor;n:integer):integer;
var i, maior: integer;
begin
maior := v[1];
for i := 2 to n do
if v[i] > maior then maior := v[i];
max := maior;
end;
begin
k := 0;
while not eof do begin
k := k + 1;
readln(nota[k]);
end;
maiornota := max(nota, k);
writeln(maiornota);
end.
procedure converte(segundos: integer;
var h, m, s: integer);
begin
h := segundos div 3600;
segundos := segundos mod 3600;
m := segundos div 60;
s := segundos mod 60;
end;
...
seg := 4000;
converte(seg, hh, mm, ss);
writeln(seg, hh, mm, ss);