Program yslovie;
var a,b,c:real;
begin
Writeln('Введите а');Readln(a);
Writeln('Введите b');Readln(b);
Writeln('Введите c');Readln(c);
if (b>a) and (b<c) then Writeln('Условие выполняется, ',a,'<',b,'<',c)
else Writeln('Условие не выполняется')
end.
Названия городов пишутся с большой буквы!
Фигура становится плоской.
В первом мы повторяем количество раз от 6 до 12 ,то есть 10+10+10+10+10+10 ,ответ будет 60
а во втором мы ищем нужное нам значения начиная с 1 , в условии написано ,если Dat(k)<25 то мы присваем m этот Dat, то есть ответ 20