Решить задачи в Паскале АВС

Пятая:

в каком вопросе что не понятно, пришли свой вариант, но на халяву не надейся

1) http://pascalabc.net/WDE/?file=08844.pas
2) http://pascalabc.net/WDE/?file=08845.pas
3) http://pascalabc.net/WDE/?file=08846.pas
4) http://pascalabc.net/WDE/?file=08847.pas
5) http://pascalabc.net/WDE/?file=08848.pas

Возможны ошибки или вообще неверное выполнение заданий :)

1)
var
cm:integer;
m:integer;
begin
readln(cm);
m:=cm div 100;
writeln(m);
end.

2)
var
kg:integer;
centner:integer;
begin
readln(kg);
centner:=kg div 100;
writeln(centner);
end.

3)
var
a,b,c:real;
D:real;
begin
readln(a,b,c)
D:=sqr(b)-4*a*c;
if D<0 then
writeln('Корней нет')
else
writeln('Корни есть');
end.

4)
var
a:integer;
begin
writeln('Введите количество лепестков');
readln(a);
while a>6 do
a:=a-6;
case a of
1:writeln('Любит');
2:writeln('Не любит');
3:writeln('Плюнет');
4:writeln('Поцелует');
5:writeln('К сердцу прижмет');
6:writeln('Своим назовет');
end;
end.

5)
var
a,i,sum,j:integer;
begin
readln(a);
for i:=a to a*2 do
begin
sum:=sum+sqr(a+j);
inc(j);
end;
writeln(sum);
end.

6)
var
n:string;
i,j:integer;
num:integer;
begin
readln(n);
if length(n)<=2 then
begin
writeln('В числе нет трех одинаковых цифр');
halt; //выход из программы
end
else
begin
for i:=0 to 9 do
begin
num:=0;
for j:=1 to length(n) do
if n[j]=inttostr(i) then
inc(num);
if num>=3 then
begin
writeln('В числе есть три одинаковые цифры');
halt; //выход из программы
end;
end;
end;
writeln('В числе нет трех одинаковых цифр');
end.

7)
var
arr:array [1..100] of integer;
ln:integer;
i:integer;
begin
writeln('Введите длину массива');
readln(ln);
writeln('Введите элементы массива через пробел');
for i:=1 to ln do
read(arr[i]);
for i:=1 to ln do
begin
if (arr[i] mod 3=0) and (i<>3) then
arr[i]:=arr[i]*arr[3];
write(arr[i],' ');
end;
end.

8)
var
arr:array [1..100] of integer;
ln:integer;
i,j1,j2,h:integer;
begin
writeln('Введите длину массива');
readln(ln);
writeln('Введите элементы массива через пробел');
for i:=1 to ln do
read(arr[i]);
j1:=1;
j2:=ln;
for i:=1 to ln div 2 do
begin
h:=arr[j1];
arr[j1]:=arr[j2];
arr[j2]:=h;
inc(j1);
dec(j2);
end;
for i:=1 to ln do
write(arr[i],' ');
end.

9)
var
name:string;
surname:string;
begin
writeln('Введите имя');
readln(name);
writeln('Введите фамилию');
readln(surname);
writeln(name,' ',surname);
end.

10)
var
glas:array [1..9] of char:=('а','е','ё','и','о','у','э','ю','я');
i,j,ln:integer;
s:string;
st:array [1..1000] of char;
begin
readln(s);
for i:=1 to length(s) do
for j:=1 to 9 do
if s[i]=glas[j] then
inc(ln);
ln:=ln+length(s);
for i:=1 to ln do
for j:=1 to 9 do
if s[i]=glas[j] then
insert('ж',s,i+1);
writeln(s);
end.

10) pos юзай
8) пройдись с i--
9) делай обе переменные для чтения и потом выводи как 1 строку
7) пройдись по массиву и определи elem % 3 == 0 - кратное

В чем проблема то? Если так нужно - за деньги сделаю

в каком вопросе что не понятно, пришли свой вариант, но на халяву не надейся