Question

program risunok;
var N:byte;
procedure kvadrat_iz_zvezd(N:byte);
var k,i:byte;
begin
for k:=1 to N do begin
for i:=1 to N-1 do begin
write('* ');
end;
writeln('*');
end;
end;

begin
repeat
writeln('Введите целое положительное число. Для окончания работы нажмите 0 ');
read(N);
kvadrat_iz_zvezd(N);
until N=0;
writeln('Спасибо:)')
end.


1. В чём назначение каждой из программ?
2. Какие виды подпрограмм использованы в этих программах?
3. Где располагается подпрограмма в тексте основной программы?
4. Какую структуру имеет подпрограмма?
5. В чём разница между процедурой и функцией?
6. В каких случаях удобно использовать подпрограммы?