ainda não consegui resolver esse algoritmo

[Visitante: zeia22]

Faça uma algoritimo que receba um número qualquer e o calcule da seguinte maneira:some o número recebido mais ele mesmo e com o resultado da soma faça a potenciação dele com a potência de 2.Em seguida,com o resultado da potenciação,faça a raiz quadrada e depois mostre o resultado.

comecei á pouco tempo no pascal e parei nesse exercício to sem saber como fazer....me ajudem.Agradeço desde já.

program raz;

var n1,soma,resultado:real;

begin

writeln('digite o numero');

readln(n1);

soma:=n1+n1 sqr() sqrt();

writeln('o resultado é:',resultado :2:2);

readln;

end.

esse é o programa e ta piscando o erro no s do sqr.

Pensei também em fazer diferente por ex:

soma=soma+soma=resultado dai não sei como pegar esse resultado e colocar ele para sqr fazer a potenciação,e o resultado dessa para sqrt raiz quadrada,eu teria que declara uma variavel para esse resultado pra que ele possa passar a soma pra sqr e depois sqrt?

assim como eu fiz ele não aceita , nem se colocar entre parenteses com writeln.

Essas são minhas duvidas no momento o outro programa deu ok ele rodou na boa .

Obrigado e fico no aguardo.

[BlackSephira]

Olha cara eu fiz um programa do jeito qui você falo ai mas os resultados são meios estranhos =s

Testa ai ^^

var
	numero, soma, cont: integer;
  potenc, raiz: real;
begin
	write('Digite o numero: ');
	readln(numero);
  for cont:= 1 to 2 do
  begin
	  soma:= soma + numero;
  end;
	potenc:= exp(2*ln(soma));
	raiz:= sqrt(potenc);
	writeln('Resultado: ',raiz:0:0);
	readln;
end.