Помогите пожалуйста решить 3 несложные задачи.

[Игорь Варавин]

1. Найти ошибки в программе, которая выводит на экран кубы чисел из промежутка от 1 до 10

Program q2
Var
Begin
ClrScr;
For k=1 to 10 do
a = SQR(k)*k;
Writeln(a);
End.

2.Написать программу поиска четырехзначного числа, которое при делении на 133 дает в остатке 125, а при делении на 134 дает в остатке 111

Program pr2;
Uses Crt;
Var a,b:Integer;
Begin
ClrScr;
For k:=1000 to
Begin
a:=k mod ;
:= mod 134;
If (a=) (b=) Then Writeln();
End;
Readln;
End.

3. Найти двузначные числа, разность цифр которых по абсолютной величине равна 1

Program pr_3;
Uses Crt;
Var :Integer;
Begin
ClrScr;
k:= to do
a:= ;
b:=
If ABS( - ) = Then
Writeln();
Readln;
End.

[Sazary]

1.

Program q2;
uses crt;
Var
a,k : longint;
Begin
ClrScr;
For k:=1 to 10 do
 begin
 a:= SQR(k)*k;
 Writeln(a);
 end;
readln;
End.

2.

Program pr2;
Uses Crt;
Var a,b,k:Integer;
Begin
ClrScr;
For k:=1000 to 9999 do
 Begin
 if (k mod 133 = 125) and (k mod 134 = 111) then
  writeln(k);
 End;
Readln;
End.

3.

uses crt;
var
i,j : integer;
begin
clrscr;
for i:=1 to 9 do
 for j:=0 to 9 do
  if abs(i-j)=1 then writeln(i,j);

readln;
end.

[DM_bite]

1

Program q2;
uses CRT;
Var k,a: integer;
Begin
ClrScr;
For k:=1 to 10 do
begin
a:= SQR(k)*k;
Writeln(a);
end;
ReadLn;
End.

upd,опоздал.

[Игорь Варавин]

Всем большое спасибо!