Vara,b,sr_ar:real;beginwriteln('Введите числа a и b: ');readln(a,b);sr_ar:=(a+b)/2;if sr_ar>15 then writeln('Площадь равна ',a*b)elsewriteln('Среднее арифметическое этих чисел равен ',sr_ar);end.
Из 2 в 27
1)2^2=4
2)4+1=5
3)5^2=25
4)25+1=26
5)26+1=27
ответ:12122
Не заданы значения переменных.
Правильный код:
<span>program Lipov_2;
var a, b, k: integer;
begin
a:=14;
b:=365;
writeln('a=', a);
</span>writeln('b=', b); <span>
k:=a*b;
writeln(a,'*',b,'=', k);
end.</span>
98% что программу ты написал правильно, просто я Паскаль немного забыл , но основное помню