Nu aveti permisiuni pentru a descarca fisierul grader_test17.ok
Cod sursa(job #4016)
| Utilizator |  Dragomir Elena cascada |
Data | 30 decembrie 2006 00:13:34 |
|---|---|---|---|
| Problema | Adapost 2 | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.29 kb |
program adapost;
uses crt;
var n,i,a,b,x:integer;
begin
write ('n=');readln(n);
write ('x=');readln(x);
write ('a=');readln(a);
write ('b=');readln(b);
for i:=1 to n do
write a:=n+1/2;
for i:=1 to x do
write b:=n+1/2;
write b<>a;
if b:>a write ('b>a') else write ('b<a');
readln;
end.