Программа 1:

program MultiplicationUsingAddition;
var
A, B, product, i: integer;
begin
writeln${}^{\prime }Entertwonumbers{:}^{\prime }$;
readln$A,B$;
product := 0;
i := 0;
repeat
product := product + A;
i := i + 1;
until i = B;
writeln${}^{\prime }Theproducto{f}^{\prime },A{,}^{\prime }an{d}^{\prime },B{,}^{\prime }i{s}^{\prime },product$;
end.

Программа 2:

program ModulusUsingSubtraction;
var
A, B, result: integer;
begin
writeln${}^{\prime }Entertwonumbers{:}^{\prime }$;
readln$A,B$;
repeat
A := A - B;
until A < B;
writeln${}^{\prime }Theremaindero{f}^{\prime },A{,}^{\prime }dividedb{y}^{\prime },B{,}^{\prime }i{s}^{\prime },A$;
end.

Программа 3:

program CalculateValue;
var
S, i: integer;
begin
S := 6;
i := 3;
repeat
S := S + 5 div i;
i := i - 1;
until i = 0;
writeln${}^{\prime }ThevalueofSi{s}^{\prime },S$;
end.