program ex4
real::x,y
read *,x,y
if (y<exp(1.) .and. y>exp(-1.) .and. y>x*x) then
print *,"Vnutri"
else if (y<=exp(1.) .and. y>=exp(-1.) .and. y .eq. x*x &
.or. y .eq. exp(1.) .and. y .eq. x*x &
.or. y .eq. exp(-1.) .and. y .eq. x*x) then
print *,"Na granitce"
else
print *,"Vne"
end if
end
var
Str1,c : string;
l,i : integer;
r : boolean;
begin
readln (Str1);
r := true;
i := 1;
l := Length (Str1);
While (r) and (i <= l) do
begin
c := copy (Str1,i,1);
if (c <> '1') and (c <> '0') then
r := false;
i := i + 1;
end;
if r then
{writeln ('Ok')}
else
writeln ('Недопустимый символ!');
<span>end.</span>
Уже был ответ про Колонтитул, а сноска перемещает текст. Для удобного просмотра информации. 50. Буквица в начале и в конце ставит §
<span>Вставка - Рисунок - Диаграмма</span>