Encontrar o dobro de um número caso ele seja positivo e o seu triplo caso seja negativo, escrevendo o resultado

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Program Encontre_o_numero;
VAR x, resposta: integer;
Begin
Writeln ('Encontrar o dobro de um número caso ele seja positivo e o seu triplo caso seja negativo, escrevendo o resultado');
Readln (x);
if x<0 then
Begin
Resposta:= (x*3);
Writeln (Resposta);
	End
else if x=0 then
	Begin
	Resposta:= (x);
	Writeln (resposta);
	End
	else
	Begin
Resposta:= (x*2);
Writeln (resposta);
End	 
End.