Нвписать программу на Паскаль. Занесите информацию о десяти европейских странах в массивы n (название страны), k (численность населения), s (площадь страны). Нужно общую численность (всех стран) разделить общую площадь (всех стран) Страны:Россия', 'США', 'Греция', 'КНР', 'Турция', 'Германия', 'Испания', 'Колумбия', 'Бразилия', 'Египет'

Крупнейшая страна мира по площади - Россия с площадью 17,075,200 квадратных километров (на 2016 17,125,407 км² с Крымом). Вторая по площади страна мира - Канада с площадью 9,976,140. Далее США 9,629,091, Китай 9,596,960 и Бразилия 8,511,965 км2

var i,s: integer;

{1}begin

s: =0;

for i: =1 to 1000  do

if i mod 2=0 then s: =s+i;

end.

{2}begin

for i: =1 to 1000 do

if odd(i) then s: =s+i;

{3}a: array[1..500] of integer;

n: integer;

for i: =1 to 1000 do

if odd(i) then a[i]: =i;

n: =i;

for i: =1 to n do

s: =a[i]+s;

end.

ввод x = 1, y = 3

x = 3 - 1= 2

y = 2 * 2 = 4

x = 2 * 4 + 2 = 10

y = 4 + 10/2 = 9

вывод x = 10, у = 9

ответ. в результате работы программы получим: х = 10, у = 9.