Таблица вычислений по трем переменным

uses crt;
var a1,a2,b1,b2,c1,c2:integer;
    ia,ib,ic,k,p:integer;
begin
clrscr;
writeln('Введите минимальное и максимальное значения трех переменных:');
repeat
writeln('a1,a2:');
readln(a1,a2);
until a2>a1;
repeat
writeln('b1,b2:');
readln(b1,b2);
until b2>b1;
repeat
writeln('c1,c2:');
readln(c1,c2);
until c2>c1;
for ia:=a1 to a2 do
for ib:=b1 to b2 do
for ic:=c1 to c2 do
 begin
  p:=ia+ib+ic;
  writeln(ia,'+',ib,'+',ic,'=',p);
  k:=k+1;
  if k mod 23=0 then
   begin
    write('Press Enter...');
    readln
   end;
  end;
readln
end.

var a1,a2,b1,b2,c1,c2:real;
    da,db,dc,x,y,z,p:real;
    k:integer;
begin
clrscr;
writeln('Введите минимальное, максимальное значения трех переменных');
writeln('и  шаг тауляции меньше длины интервала');
repeat
writeln('a1,a2,da:');
readln(a1,a2,da);
until (a2>a1)and(da<a2-a1);
repeat
writeln('b1,b2,db:');
readln(b1,b2,db);
until (b2>b1)and(db<b2-b1);
repeat
writeln('c1,c2,dc:');
readln(c1,c2,dc);
until (c2>c1)and(dc<c2-c1);
x:=a1;
while x<=a2 do
 begin
  y:=b1;
  while y<=b2 do
   begin
    z:=c1;
    while z<=c2 do
     begin
      p:=x+y+z;
      writeln(x:0:2,'+',y:0:2,'+',z:0:2,'=',p:0:2);
      k:=k+1;
      if k mod 23=0 then
       begin
        write('Press Enter...');
        readln
       end;
      z:=z+dc;
     end;
    y:=y+db;
   end;
  x:=x+da;
 end;
readln
end.