186 уместиться в 1 байт/пиксель 50*50 = 2500 пикселов => столько же байт.
От кнопки Home , это же очевидно.
Program dialog;
var
a: integer;
begin
writeln('Привет! Какая у вас температура? ');
readln(a);
if a>37 then
writeln('Лечитесь дома')
else if a<36 then
writeln('Седите дома')
else
writeln('Идите в шоклу');
end.