Подпрограммы в паскале

Составьте программу, получения изображения в котором в первой строке 1 звездочка, во второй - 2, в третьей -3, ..., в строке с номером m - m звездочек.

program z2;

var m, i,k :integer;

procedure pr (n:integer);

var i : integer ;

begin

for i :=1 to n do write ('*'); writeln;

end;

begin

readln(m);

for i:=1 to m do

pr(i);

end.

Найти наибольшее число из 4 заданных чисел».   

Обсуждение хода составления программы.

         Превратить программу в подпрограмму-функцию

         Написать основную программу

Программа;

Program BICh;

Var a,b,c,d,max:real;

Function BID(m,n:real):real;

Begin

If mn then BID:=m else BiD:=n:

End;

Begin

Writeln(a,b,c,d);

Readln(a,b,c,d)l

Max1:=Bid(a,b); Max2:=Bid(max1,c); Max3:=Bid(max2,d);

Writeln(max3:4:2);

End.

Требуется ввести число и вывести его квадрат на экран. Решение выглядит так : 

program mypascal; 
var 
n:integer; 
procedure kv(a:integer); 
var 
i:byte; 
begin 

writeln('Квадрат числа ',a,' = ',sqr(a)); 

end; 
begin 

write('Введите число : '); 
readln(n); 

kv(n); { Процедура выводит на экран квадрат числа N } 

end.