var a,b:integer;
begin
readln(a,b);
if(a mod 2 = 0) and (a > b) then
writeln('Наибольшее, четное число: ',a)
else begin
if(b mod 2 = 0) and (b > a) then
writeln('Наибольшее четное число: ',b)
else
writeln('Не найдено');
end;
end.
От версии Windows.
Если посмотреть то видно что на каждой версии-курсор разный.
1)
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if (a[i] div 100 = 0)and(a[i] div 10 > 0) then
write(a[i], ' ');
2)
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if (a[i] mod 2 = 0) then
write(a[i], ' ');
3)
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if (a[i] mod 2 = 0)then
a[i] := a[i]*2
else
a[i] := a[i] - 1;
for i := 1 to n do
wirte(a[i]);
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
uses System.Linq;
function GetPrimes(n: integer): List<integer>;
begin
var primes := new List<integer>();
primes.Add(2);
for var i := 3 to n do
begin
if primes.All(x -> i mod x > 0 ) then
primes.Add(i);
end;
GetPrimes := primes;
end;
begin
var n := ReadInteger('n =');
var primes := GetPrimes(2 * n);
foreach var p in primes do
if primes.Contains(p + 2) then
writeln(p, ' ', p + 2);
end.