Может так:
Vara:array[1..5]of integer;
a1,a2,a3,a4,a5,max:integer;
function f(a,b:integer):integer;
begin
if a>b then result:=a else result:=b;
end;
begin
a1:=random(10);
a2:=random(10);
a3:=random(10);
a4:=random(10);
a5:=random(10);
writeln(a1);
writeln(a2);
writeln(a3);
writeln(a4);
writeln(a5);
writeln;
max:=f(a1,a2);
max:=f(max,a3);
max:=f(max,a4);
max:=f(max,a5);
writeln('max=',max);
<span>end.</span>
Python:
x, y = map(int, input().split()) #ввод координат через пробел
if x >= 0 and y >= 0 and y >= -2*x + 4 and y <= -x + 6:
print(“true”)
else:
print(“false”)
———
Для второй задачи строка заменяется на эту:
if x >= 0 and y >= 0 and y >= 3-x and x*x + y*y <= 36:
{1 вариант}
var otr, vozr: byte;
begin
writeln('введите возраст');
readln(vozr);
case vozr do
6,7: otr:=5;
8,9: otr:=4;
10,11: otr:=3;
12,13: otr:=2;
14,15: otr:=1;
end;
writeln('Ваш отряд', otr);
end.
{2 вариант - более простой}
var otr, vozr: byte;
begin
writeln('введите возраст');
readln(vozr);
otr:=5 - vozr div 2 + 3;
writeln('ваш отряд', otr)
end.