Разработать программу, которая на вход получает 4 числа (X Y R N На экран выводится N квадратов с координатами X, X1, Y, Y1 на расстояние между квадратами K. В ПАСКАЛЕ

Program z1;  Var x,y,z,max,min,u:integer;Begin  write('Введите x  =  ');  readln(x);  write('Введите y =  ');  readln(y);  write('Введите z =  ');  readln(z);  if (x>y) then if (x>z) then max:=x                         else max:=z           else if (y>z) then max:=y                         else max:=z;  if (x<y) then if (x<z) then min:=x                         else min:=z           else if (y<z) then min:=y                         else min:=z;  u:=max+min;  writeln('U = ',u)End.