Решение задач в PASCAL ABC

[canter]

Помогите пожалуйста с задачами(см. вложения). Заранее сПаСиБо!

[weech]

1)

program q;
var i,n:Integer;
a,b:real;
begin
readln(a,n);
b:=a;
writeln(a);
if a/trunc(a)=1 then
for i:=2 to n do
    begin
    a:=a*b;
    writeln(a);
    end;
end.

2)

program q;
var
a,b:real;
begin
readln(a,b);
while a>b do
      a:=a-b;
    writeln(a);
end.

3)

program q;
var
a,b:real;
c:integer;
begin
readln(a,b);
while a>b do
      begin
      a:=a-b;
      inc(c);
      end;
    writeln(c);
end.

[ACE Valery]

canter, если вам лень перепечатать вашим задачи сюда, то, думаете, найдется тот, кому не лень их будет решить?