Задача на Pascal

[deso]

Темата може да бъде заключена

[Реклама]

[Vladi_mnt]

program Zada4a;
Uses Crt;
var a,b,i: Integer;
s: LongInt (*ili integer, po va6e jelanie*)
begin
ClrScr;
write("Vyvedete dolna granica: '); readln(a);
write('Vyvedete gorna granica : '); readln(b);
s:=0;
for i:=a to b do
If (i mod 3=0) Then s:=s+i;
writeln('Tyrsenoto 4islo e: ',s);
end.

Сега, вместо да ми изказваш големи благодарности, ми кажи какво разбра от кода, който ти дадох?