Помогите пожалуйста с процедурами...

[cellent]

Здравствуйте, буду очень признателен, если кто нибудь поможет переделать данную задачу с использование с начало Procedure,а потом функции(Две разные задачи). Заранее спасибо!

program zada4a;
var b,k,t,s:integer; cb,ck,ct:real;
begin
write('Cena bika= 10r, Cenf korovi= 5r, Cena telenka= 0,5r');
cb:=10;
ck:=5;
ct:=0.5;
writeln;
for b:=0 to 100 do
for k:=0 to 100 do
for t:=0 to 100 do
if (b*cb+k*ck+t*ct=100) and (b+k+t=100) then writeln('BbIkoB:',b,' KoPoB:',k,' TeJI9IT:',t);
end.

[Stilet]

program zada4a;

procedure go
var b,k,t,s:integer; cb,ck,ct:real;
begin
write('Cena bika= 10r, Cenf korovi= 5r, Cena telenka= 0,5r');
cb:=10;
ck:=5;
ct:=0.5;
writeln;
for b:=0 to 100 do
for k:=0 to 100 do
for t:=0 to 100 do
if (b*cb+k*ck+t*ct=100) and (b+k+t=100) then writeln('BbIkoB:',b,' KoPoB:',k,' TeJI9IT:',t);
end;

begin
 go;;
end.

program zada4a;

Function go:String;
var b,k,t,s:integer; cb,ck,ct:real;
begin go:='';
write('Cena bika= 10r, Cenf korovi= 5r, Cena telenka= 0,5r');
cb:=10;
ck:=5;
ct:=0.5;
writeln;
for b:=0 to 100 do
for k:=0 to 100 do
for t:=0 to 100 do
if (b*cb+k*ck+t*ct=100) and (b+k+t=100) then writeln('BbIkoB:',b,' KoPoB:',k,' TeJI9IT:',t);
end;

begin
 go;
end.

Годится?

[cellent]

Нет... Нужно немного другие задачи...

Program pr1_procedure;
Var x,y,rez:real;
Procedure summa(a,b:real; var s:real);
Begin
S:=a+b;
End;
Begin
Writeln('введите  2  числа');
Readln(x, y);
Summa(x, y, rez);
Writeln('сумма ', rez);
End.

и вот

Program pr1_Function;
Var x, y, rez:real;
Function summa (a,b:real): real;
Begin
Summa:=a+b;
End;
Begin
Writeln('введите  2  числа');
Readln(x,y);
Rez:=summa(x,y);
Writeln('сумма ', Rez);
End.