1.
var a,b:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
if a div b = b then a:=a div b else a:= a mod b;
writeln('a=',a);
end.

Пример:
a=16
b=5
a=1

2.
var x,y:integer;
begin
write('x='); readln(x);
write('y='); readln(y);
repeat
y:=y-x;
x:=x-2;
until x>y;
writeln('x=',x,'  y=',y);
end.

Пример:
x=12
y=25
x=8  y=3

3.
var s,i:integer;
begin
s:=0;
for i:=1 to 5 do s:=s+i;
writeln('s=',s);
end.

Результат:
s=15