Составьте алгоритм, с которого можно определить, является ли треугольник с заданными длинами сторон a,b,c равносторонним.На алгоритмическом языке
2Каждая бактерия делится на 2 в течение 1 минуты.В начальный момент имеется одна бактерия.Сосьавьте блок схему алгоритма вычисления количества бактерий через 10 минут. исполните алгоритм фиксируя каждый его шаг в таблице значений переменных.

Or - "ИЛИ". Если одно из условий верно, то и все выражение принимает истину [ 0 or 1 = 1 ; 1 or 0 = 1; 1 or 1 = 0, 0 or 0 = 0], где 1 - истина, а 0 - ложь
у тебя условие 
If(k>9) or (k<14) then
условие k > 9 выполняется, а значит и все выражение верно
Нужно заменить "OR" на "AND" оператор "И". 
[ 1 and 1 = 1 ] при всех остальных - ложь

Вот код

var
k: integer;
begin
 readln(k);
  if k > 17 then
    Writeln('ваша оценка 5. Молодец!');
  if (k > 13) and (k < 18) then 
    Writeln('ваша оценка 4.'); 
if(k > 9) and (k < 14) then 
    Writeln('ваша оценка 3.'); 
if k < 10 then
    Writeln('ваша оценка 2.');
end.

ответ: 2 ВАРИАНТ)

var

x:real;

begin

x:=(32+45)/(2+7);

writeln('x=',x:4:2);

readln;

end.

Объяснение:

1 ВАРИАНТ)

var

x:char;

begin

x:=(32+45)/(2+7);

writeln('x=',x:4:2);

readln;

end.

НЕ ПОДХОДИТ, Т.К. для x указан тип данных - символьный. var  x:char;

2 ВАРИАНТ)

var

x:real;

begin

x:=(32+45)/(2+7);

writeln('x=',x:4:2);

readln;

end.

ПОДХОДИТ, Т.К. всё верно.

3 ВАРИАНТ)

var

x:real;

begin

x:=(32+45)/(2+7);

end.

НЕ ПОДХОДИТ, Т.К. программа не делает вывод ответа.

4 ВАРИАНТ)

var

x:real;

begin

x:=(32+45)*(2+7);  

writeln('x=',x:4:2);

readln;

end.

НЕ ПОДХОДИТ, Т.К. допущена ошибка при записи уравнения. Указано умножение, вместо деления (32+45) * (2+7)