Решить, что угодно за 10 мин ​

//задача 1program _sqrt;var ar:array[1..100] of integer;i:integer;Res:real;beginfor i:=1 to 100 do ar[i]:=i;for i:=1 to 100 do if ar[i] mod 2=0 then res:=res+ar[i];res:=sqrt(res);write(res);end.
//задача 2. 100 элементов слишком много для произведенияprogram _sqrt;var ar:array[1..10] of integer;i:integer;res:int64;beginres:=1;for i:=1 to 10 dobeginar[i]:=i;res:=res*sqr(ar[i]);end;write(res);end.
//задача 3program _sqrt;var ar:array[1..100] of integer;i:integer;res:int64;beginfor i:=1 to 100 dobeginar[i]:=i;if ar[i] mod 2=1 then res:=res+ar[i];end;write(res);end.

Ох и намудрил с этой программой))

 

program school; 
var a:char;
b:real;
c,d:boolean;
begin
Writeln ('Введите пол (м или ж) и количество учеников');

repeat
write ('Пол - '); readln (a);
if upcase(a)='Ж' then c:=true;
if upcase(a)='М' then c:=true;
if c=true then write else
writeln ('Вы должны ввести использовать символы "м" или "ж"');
until c=true;

repeat
write ('Количество учеников данного пола от 5 до 30 - '); readln (b);
if b<5 then d:=false else d:=true;
if b>30 then d:=false else d:=true;
if d=true then
begin
if upcase(a)='Ж' then writeln ('В классе сейчас ',b,' девоч.');
if upcase(a)='М' then writeln ('В классе сейчас ',b,' мальч.');
end;
until d=true;
end.