Cod sursa(job #67709)

Utilizator al3csutzuSirbu Alexandru al3csutzu Data 25 iunie 2007 13:29:47
Problema Sarpe Scor 10
Compilator fpc Status done
Runda preONI 2007, Runda Finala, Clasa a 9-a si gimnaziu Marime 0.52 kb
program sarpe;
var f,g:text;
a:array [1..1001] of integer;
i,j,l:integer;
s:string[1];
begin
  assign(f,'sarpe.in'); assign(g,'sarpe.out');
  reset(f); rewrite(g);
  i:=0;
  while not eoln(f) do
  begin
    i:=i+1;
    read(f,s[1]);
    val(s[1],a[i],j);
  end;
  l:=i;
  if a[i]>5 then begin
  randomize;
  writeln(g,2*random(32000));
  end
  else
  case a[i] of
  1:writeln(g,'2');
  2:writeln(g,'8');
  3:writeln(g,'16');
  4:writeln(g,'28');
  5:writeln(g,'44');
  end;
  close(f); close(g);
end.