Var a: array [1..10] of real;
begin
writeln('Введите 10 натуральных чисел');
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do
if a[i] > 0 then writeln(a[i])
end.
Программа просит пользователя ввести 10 натуральных чисел. Для этого используется оператор read в первом цикле.
Во втором цикле проверяется каждое из 10 чисел. Если оно положительное, т.е. больше 0, оно выводится на экран. Затем программа завершает работу.
Языки программирования. В инете поищи информацию, там про это масса сайтов. Учительнице понравится точно.
Var x,y:longint;
begin
readln(x,y);
if (x+y) mod 2=0 then writeln(2*x,' ',2*y)
else
writeln(2*x,' ',y);
readln;
end.
Фаил-это блок информаций хронящися на запоминающем уст-ве компьютера.
Папка-это фаиловая система в которой хронятся некоторое кол-во фаилов.