Cod sursa(job #2343301)
Utilizator | Data | 13 februarie 2019 21:10:20 | |
---|---|---|---|
Problema | Algoritmul lui Euclid | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.43 kb |
program euclid2;
var intrare,iesire:text;
t:longint;
a,b:longint;
r,i,aux:longint;
x,y:longint;
d:longint;
BEGIN
assign(intrare,'euclid2.in');
reset(intrare);
assign(iesire,'euclid2.out');
rewrite(iesire);
readln(intrare,t);
writeln(iesire,'Hai noroc si sanatate');
close(intrare);
close(iesire);
END.
END.