PROGRAM TEST (INPUT, OUTPUT);
VAR
S, I, N : INTEGER;
BEGIN
WRITE('WRITE N: ');
READLN (N);
S :=0;
FOR I :=1 TO N DO
BEGIN
IF I MOD 2 = 0 THEN
BEGIN
S :=S+I;
WRITELN('CURRENT VALUE I=',I,' S=',S);
END;
END;
WRITELN('FINAL RESULT SUMA S=',S)
END.
UFJPR1JBTSBURVNUIChJTlBVVCwgT1VUUFVUKTsKVkFSCglTLCBJLCBOIDogSU5URUdFUjsKQkVHSU4KICAgV1JJVEUoJ1dSSVRFIE46ICAnKTsKICAgUkVBRExOIChOKTsKICAgUyA6PTA7CiAgIEZPUiBJIDo9MSBUTyBOIERPCiAgIEJFR0lOCgkgIElGIEkgTU9EIDIgPSAwIFRIRU4KCQlCRUdJTgoJCSAgIFMgOj1TK0k7CgkJICAgV1JJVEVMTignQ1VSUkVOVCBWQUxVRSBJPScsSSwnIFM9JyxTKTsKCQlFTkQ7CglFTkQ7CglXUklURUxOKCdGSU5BTCBSRVNVTFQgU1VNQSBTPScsUykKRU5ELg==