Найди все четные по значению элементы массива. вывести на экран значение элементов и их индекс. ввод элементов массива с клавиатуры. программа пишется на языке паскаль

Var    a: array[1..5]of integer;    i: integer;
begin
  for i := 1 to 5 do 
   read(a[i]);   
  for i := 1 to 5 do        
   if ((a[i] mod 2) = 0) then writeln('число - ',a[i], ' индекс - ',i);
end.
abs pascal

Меньше в доту катай, все знать будешь :)
1)
uses crt;
var s,s1,s2,s3,r1,r2:real;
begin
writeln ('Введите радиус первого (маленького) круга:');
read (r1);
writeln ('Введите радиус второго (Большего, чем первый) круга:');
read (r2);
//pi - 3.14
s:=3.14*r1*r2 ;
writeln (s);
//s1 - Площадь первого круга, s2 - второго, s3 - кольца
s1:=3.14*sqr(r1);
s2:=3.14*sqr(r2);
if (s1=0) or (s2=0)
then writeln ('Одна из площадей равна нулю')
else begin s3:=s2-s1 ;  
writeln (s3); end
end.

2)
uses crt;
var x,y,x1,y1 :integer;
begin
writeln ('Введите целое значение x:'); // В программе используются только целые числа !!
read (x);
if (x-1)<0 
then y:=4 
else y:=3;
writeln (y);
end.

3)uses crt;
var  a,b,c:real ;
begin
writeln ('Последовательно введите 3 числа :');
read (a,b,c);
if (a<>b) and (b<>c) and (a<>c) 
then writeln ('Числа не равны') 
else
if (a=b) and (b=c) and (a=c) 
then writeln ('Числа все равны между собой')
else
if (a=b) and (b<>c) 
then writeln (c) 
else
if (a=c) and (c<>b) 
then writeln (b) 
else
if (b=c) and (c<>a) 
then writeln (a) 
end.

P.s. Писал на Pascal ABC. Блок-схему сделаешь сам, она не сложная. Удачи, инвакир :D

Amy: Hi, Sean. How are you?

   

Sean: Hi, Amy. I'm fine, thank you. It's good to hear from you.

   

Amy: Sorry to bother you, but I have one problem and I think you might help me with it. Эми: Прости, что потревожила тебя, но у меня есть одна проблема и думаю, ты мог бы мне с ней.

   

Sean: No problem. What's happened?

   

Amy: It's my computer. I've been having some problems with it lately. I know that you're good with computers, so I decided to address you. As for me, I don't understand a thing in electronic appliances. Эми: Это мой компьютер. В последнее время у меня с ним проблемы. Я знаю, что ты хорошо разбираешься в компьютерах, поэтому решила обратиться к тебе. Что касается меня, я вообще ничего не понимаю в электронных приборах.

   

Sean: I see. I'll try to help you. So, what's the problem? Шон: Понятно: Попытаюсь тебе. Так, в чем проблема?

   

Amy: There are actually several problems here. First of all, my computer started to shut down unexpectedly. It wasn't like this before. Secondly, I fail to open some of my past pictures of documents. Thirdly, I can't start the music. I'm at loss. I think, perhaps, my computer has become outdated or something. Эми: Здесь вообще несколько проблем. Во-первых, мой компьютер начал неожиданно отключаться. Раньше такого не было. Во-вторых, мне не удается открывать некоторых из моих старых фото или документов. В-третьих, музыка не включается. Я думаю, может быть, мой компьютер вышел из срока годности или что-то в этом роде.

   

Sean: Those problems are quite serious. I must come over and have a look at it. I assume that the problem of shutting down is because of overheating. Perhaps you should replace the battery. When certain files fail to open, it might be a virus. So we will need a reliable anti-virus software set up. And the problem with audio files might be because the player became outdated. It needs to be refreshed. Шон: Эти проблемы достаточно серьезные. Мне нужно прийти и взглянуть на него. Полагаю, что проблема отключения может быть от перегревания. Возможно, тебе нужно сменить батарею. Когда определенные файлы не открываются, это может быть из-за вируса. Поэтому нам понадобится надежная антивирусная программа. И проблема с аудио файлами может быть связана с тем, что плеер устарел. Его нужно обновить.

   

Amy: See, I knew you are a computer genius. Could you come over? Эми: Вот видишь, я знала, что ты компьютерный гений. Ты мог бы заглянуть ко мне?

   

Sean: Yes, of course. When is it more convenient for you? Шон: Да, конечно. Когда тебе удобнее?

   

Amy: The sooner, the better. I don't work this week so you can come anytime. Эми: Чем раньше, тем лучше. Я не работаю на этой неделе, поэтому можешь прийти в любое время.

   

Sean: Ok, then. I will come tomorrow evening if that's all right. Шон: Хорошо. Тогда, я приду завтра вечером, если так подходит.

   

Amy: That's perfect. I'll be waiting for you. Эми: Так отлично. Буду ждать тебя.

   

Sean: I will have to take some software and equipment with me. Is there anything else to be fixed? Шон: Мне нужно будет взять с собой некоторые программы и оборудование. Не нужно ли чего-то ещё исправить?

   

Amy: My printer is also a mess. I've tried to change the ink, it didn't help. I'm having some trouble printing black and white pages. Эми: Мой принтер тоже в плохом состоянии. Я пыталась заменить чернила, но это не У меня проблемы с распечаткой черно-белых страниц.

   

Sean: I see. I'll have a look. However, I'm not good at printer or scanner fixing. Шон: Понятно. Я посмотрю. Хотя, я не очень хорошо разбираюсь в починке принтеров или сканеров.

   

Amy: It's ok, Sean. Those devices are not so important for me as the computer and laptop. By the way, my laptop also plays tricks on me. Эми: Ничего страшного, Шон. Эти приборы для меня не так важны, как мои компьютер или ноутбук. Кстати, мой ноутбук тоже меня подводит.

   

Sean: What's wrong with it? Шон: Что с ним такое?

   

Amy: I think, there is also some kind of a virus, because my files don't open. Эми: Думаю, в нем какой-то вирус, потому что мои файлы не открываются.

   

Sean: Yes, that might be a virus. It is a common problem of computers these days. Шон: Да, это может быть вирус. Это распространенная проблема в нынешних компьютерах.

   

Amy: I will purchse anti-virus software for both computers then. I should have done this earlier. Эми: Тогда я куплю антивирусную программу для обоих компьютеров. Нужно было это сделать ранее.

   

Sean: Yes, it is important to protect your PC. Otherwise, your personal information might become available to third parties. Шон: Да, очень важно защищать свой личный компьютер. Иначе, твоя личная информация может стать доступной третьим лицам.

   

Amy: Thank you, Sean, for trying to help me. I'll see you tomorrow then. Эми Шон, что пытаешься мне. Тогда, увидимся завтра.

   

Sean: See you. Bye.