var
  x1, y1, z1: Integer;
  X, O, Y: Real; 
  P: Real;
...


procedure entercoord(x1,y1,z1: Integer);
begin
  writeln('Vvedite koordinaty x1, y1, z1');
  readln(x1,y1,z1);
end;

procedure CalcVolCyl;

procedure scr;
begin
  clrscr;
  writeln('Vivodim na ekran'); {Типа так}
end;

procedure prnt;
var
  f: Text;
  i: Integer;
begin
  clrscr;
  writeln('Gelaete vyvesti na printer nagmite: <Y> ili <N> else nado vyiti');
  readln(ch);
  if (ch = 'Y) or (ch = 'y') then 
  begin
    assign(f, 'prn');
    rewrite(f);
    write('out on printer');
    close(f);
  end
  else
    for i:=0 to 15 do delay(3000);
    
end;

begin
  {vycheslenie obiema cilindra}
  
end;


begin
  writeln('');
  writeln('');
  writeln('');
  readln(i);
  ...
  {В зависимости от введенного параметры выполняем действие}
end;