Program salute_utente(input,output);
var variabile:char;

Procedure domanda;

	Begin
		writeln('Stai bene in salute?');
		readln(variabile);
	end;
Procedure risposta;
	begin
		If variabile ='s' then
		writeln('Sono felice per te') else
		writeln('Ti consiglio di andare dal medico');
	end;

{main program}
Begin
	domanda;
	risposta;
end.