1º integrado Informática Getulio Vargas

Galera, segue:

EX9) Faça um programa que utilize a PROCEDURE para calcular raiz quadrada:

{Dentro de um programa pode existir um subprograma. Estes subprogramas são    designados, em Pascal, por Procedimentos, e são declarados antes do bloco principal do programa pela expressão reservada procedure.
Por exemplo, podemos criar um procedimento para calcular a raiz quadrada de um número, sem que tal seja feito no bloco principal}

program raiz;
uses crt;
var a,resultado:real;

procedure calc_raiz; {procedimento}
begin
resultado:=SQRT(a);
end;

begin
write('Introduza valor que queira saber a raiz: ');
readln(a);
calc_raiz;    {chamada da procedure}
writeln;
writeln('A raiz quadrada de ', A:2:0, ' é: ',resultado:2:2);
end.