Если я правильно понял, то:
program x;
var x,y,a;
begin
readln(x,y);
if x < y then
begin
a:=x;
x:=y;
y:=a;
end;
writeln(x,y);
end.
Предположим, что Великобритания (откровенный), тогда получается проект Китая.
Следовательно Китай (скрытный). Проверим, Францию на (осторожный).
Все верно, следовательно
Великобритания = Откровенный
Китай = Скрытый
Франция = Осторожный
program asd;
var a,b,k:integer;
begin
readln (a,b);
b:=b-1;
while (b>a) do begin
write (b,', ');
b:=b-1;
k:=k+1;
end;
writeln;
writeln (k);
readln;
end.
Program n1;
Uses CRT;
Const n=20;
Var a: array[1..n] of integer;
i: integer;
begin
ClrScr;
Writeln('Vvedite massiv');
For i:=1 to n do
readln(a[i]);
For i:=1 to n do
If a[i]<0 then a[i]:=a[i]*(-5)
else if a[i]>0 then a[i]:=a[i]*20
else a[i]:=1000;
For i:=1 to n do
write(a[i]:5);
readln
end.