ПОМОГИТЕ, ПОЖАЛУЙСТА, СРОЧНО НУЖНО! делать нужно в паскале: составьте 3 программы,...

//Pascal
var
a, s: integer;
i: integer;

begin

//цикл for
s := 0;
for i := 0 to 20 div 3 do
    s := s + i*3;
writeln(s);

//цикл while
i := 3;
s := 0;
while i <= 20 do <br> begin
    s := s + i;
    i := i + 3;
end;
writeln(s);

//цикл repeat
i := 3;
s := 0;
repeat
    s := s + i;
    i := i + 3;
until i > 20;
writeln(s);
end.