program funcDanprocDanArray;
uses wincrt;
var input:real;

procedure bintang;
begin
writeln(‘*******************************’);
end;

procedure emotion;
begin
writeln(‘^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^’);
end;

function flash(var a:real):real;
begin
flash:=sqrt(a);
end;

procedure inputan(var b:real);
begin
bintang;
writeln(‘Hasil akar dari ‘,input:0:2,’ adalah ‘,flash(input):0:2);
emotion;
writeln;
writeln(‘T R ! m A K a s ! H’);
writeln(‘namoetzfreshgreen@yahoo.com’);
end;

begin
writeln(‘Program akar’);
write(‘Masukan bilangan yang igin diakar = ‘);
readln(input);
inputan(input);
end.