Var x,y:real;
begin
write('x=');readln(x);
write('y=');readln(y);
if (x*x+y*y<=1)and(y>=x)and(y<=-x+1)
then writeln('Точка принадлежит заштрихованной области')
else writeln('Точка не принадлежит заштрихованной области');
<span>end.</span>
<span>1) гарнитура, начертание, размер</span>
Ошибка которая вызывает проблемы
Var g:integer; p:real;
begin
p:=80000000;
g:=2004;
while p<3*80000000 do begin p:=p+p*0.05; g:=g+1; end;
writeln;
writeln('в ',g,' году население увеличится в трое.');
<span>end.</span>
Нельзя преобразовать тип real к integer.
integer содержит только целые числа, а real действительные.
Программа работать не будет.