Получить таблицу температур по Цельсию от 1 до 100 градусов и их эквивалент по шкале Фаренгейта

Uses crt;
Var:z,l,i,a,b,c,d:integer;
Begin
ClrScr;
For i:=1000 to 9999 do begin
If (i div 6=0) or (I div 27=0) then begin
A:=I div 1000;
B:=I div 100 mod 10;
C:=I div 10 mod 10;
D:=I mod 10;
Z:=(a+d);
L:=(b+c);
If (z=c) then writeln(i) else writeln(‘не подходит’);
End:
Readln;
End.

Uses crt;
Var t2,f,t,c,x,y,c:real;
Begin
ClrScr;
C:=0;
Y:=0;
Repeat
T=(9/5)*t+32;
Y:=y+1;
Writeln(‘y’);
Until t>100;
Writeln(t);
Readln;
End.

Uses crt;
Var t,y:real;
Begin
ClrScr;
Repeat
T=(9/5)*t+32;
Y:=y+1;
Writeln(y);
Until t>100;
Writeln(t);
Readln;
End.

Var t,y:real; //зачем real? Вы смотрите температуру с точностью меньше градуса?
Begin
ClrScr;
Repeat
T=(9/5)*t+32;//переделать под integer
Y:=y+1;  //нет начального значения у, как его считать?
Writeln(y);
Until t>100;
Writeln(t); //почему температуру по Фаренгейту выводим 1 раз, надо всю таблицу, поэтому надо в цикл
Readln;
End.

Uses crt;
Var t,y,i:integer;
Begin
ClrScr;
t:=1; {начальное значение 1 градус про Цельсию}
Repeat
y:=t*9 div 5 + 32;{считаем по Фаренгейту}
Writeln('t= ',t,'  y=',y);{выводим результат}
t:=t+1; {переходим к следующему значению}
if t mod 20=0 then readln  {вся таблица из 100 значений на экран не входит, будем выводить порциями по 20 строчек}
Until t>100;
Readln
End.

Uses crt;
Var:z,l,i,a,b,c,d:integer;
Begin
ClrScr;
For i:=1000 to 9999 do begin
If (i div 6=0) or (I div 27=0) then begin
A:=I div 1000;
B:=I div 100 mod 10;
C:=I div 10 mod 10;
D:=I mod 10;
Z:=(a+d);
L:=(b+c);
 
 
If (z=c) then writeln(i) else writeln(‘не подходит’);
 
// Z сравниваем с L, а не с C
 
End:
Readln;
End.