Лицензионной продукцией может пользоваться лицо, оплатившее лицензию на данный продукт
Условно-бесплатной продукцией может пользоваться любое лицо, но с ограничениями, установленными автором
Свободно распространяемой продукцией может пользоваться любое лицо без ограничений, но в некоммерческих целях
Var a,b:real;
begin
readln(a,b);
a:=sqr(a);
b:=sqr(b);
if a > b then write('n=1')
else write('n=2');
end.
№6
program m;
var
a, max, pupils, i: integer;
ifNoanswer: boolean;
begin
ifNoanswer:=false;
a:=0;
№7 в комментах как только напишу
max:=0;
readln(pupils);
for i:=1 to pupils do
begin
readln(a);
if a>max then
max:=a
else if a=0 then
ifNoanswer:=true;
end;
writeln(max);
if ifNoanswer=false then
writeln('NO')
else
writeln('YES');
end.