Допишите программу для рисования домика использующую процедуры с параметрами.​

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.

program chislo;

var x: integer;

          z,y : real;

begin

readln(x);

y: =5.5;

z: = x-y;

writeln(z);

end.

при запуске программы вводите эти значения и тестируете.

16-битной кодировке unicode.

один символ  s  =16 бит

количество бит  текстового файла    к= 128000 бит/с * 60 с=  7680000

количество символов к/s=7680000/16  =480000

uses  crt;

var  x,y: real;

n: integer;

begin

clrscr;

writeln('введите координаты точки: ');

readln(x,y);

if(x=0)and(y< > 0) then write('точка попала на ось y')

else if (x< > 0)and(y=0) then write('точка попала на ось х')

else

begin

  else  if  (x> 0)and(y> 0)then  n: =1

  else  if  (x< 0)and(y> 0)  then  n: =2   

  else  if  (x< 0)and(y< 0)  then  n: =3     

  else  if(x> 0)and(y< 0)  then  n: =4

  write('n=',n);  

  end;  

  readln  end.