Помогите решить задачу)) завтра экзамен

Question

Дмитрий · Accepted Answer

ну человек ты мутишь что ты несешь, надо либо правильно сформулировать задачи, либо показать саму задачу...

Константин · Answer

procedure star(k:Integer); 
var i:Integer; 
begin 
for i:=1 to k do write('*'); 
end; 
begin star(5); end.

Alexalex · Answer

function DrawAsterisks(n:byte); 
var s:string; 
s[0]:=chr(n); 
FillChar(s[1],'*',n); //посмотри точно синтаксис, может, я параметры местами перепутал 
writeln(s); 
end;