Cod sursa(job #2044182)
| Utilizator |  MaddoxX Mironica_Vasile |
Data | 20 octombrie 2017 23:45:35 |
|---|---|---|---|
| Problema | Fractii | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.26 kb |
Program fractii; uses crt;
var i, i1, j, n, k:longint;
a, b:boolean;
m:int64;
f, g:text;
begin clrscr;
assign(f, 'fractii.in');
assign(g, 'fractii.out');
reset(f); rewrite(g);
readln(f, n);
m:=1+n*(n-1);
writeln(g, m);
close(f); close(g);
end.
