Cod sursa(job #4014)

Utilizator cascadaDragomir Elena cascada Data 30 decembrie 2006 00:09:13
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');
readkey;
end.