Помощь с pascal`ем

Давненько я на паскале не писал.
Задание №275.
Даны действительные числюююч10бн1юююн10.Получить х1*y1+x2*y…x10*y10.
как упростить решение если исходные данные имеют
следующий порядок x1,y1,…x10,y10.

Решение:

var
x, y: array [1..10] of real;
i: integer;
s: string;
result: real;
begin
for i:=1 to 10 do
begin
Str(i, s);
Write('Введите X['+s+'] ');
ReadLn(x[i]);
Write('Введите Y['+s+'] ');
ReadLn(y[i]);
end;

result:=0;
for i:=1 to 10 do
begin
result:=result+x[i]*y[i];
end;

Write('Ответ = ');
WriteLn(result);
end.

Попозже остальные сделаю

Задание №323
Дано натуральное число n. Получить все натуральные числа, меньше n и взаимно простые с ним.

Решение:
var
i, n: Integer;
begin
write('Введит действительное число N ');
readln(n);
writeln('Простые числа');
for i:=n downto 1 do
begin
If (n mod i)=0 Then
writeln(i);
end;
end.

я IMG могу только ссылку на рисунок выложить, а как быть если рисунок на компе?

Читай здесь.

Да выкладывай ссылку уже, давно написали бы...

507. Сведения об ученике состоят из его имени и фамилии и названии класса (года обучения и буквы), в котором он учится: выяснить, имеются ли в школе однофамильцы.

type
rec = record
sn : string[30];
n : string[30];
kl : string[5];
end;
var
m : array[1..20] of rec;
i, c, j : integer;
begin
Write('Введите количество учеников: ');
ReadLn©;
for i := 1 to c do
begin
Write('Введите фамилию: ');
ReadLn(m[i].sn);
Write('Введите имя: ');
ReadLn(m[i].n);
Write('Введите класс: ');
ReadLn(m[i].kl)
end;
for i := 1 to c do
for j := 1 to c do
if (m[i].sn = m[j].sn) and (i <> j) then
WriteLn(m[i].sn, ' ', m[i].n, ' ', m[i].kl);
ReadLn;
end.

вот танк:
http://xs.to/xs.php?h...f=DSC00502.JPG

и восьмая задача:
http://xs.to/xs.php?h...f=DSC00505.JPG

Вот танк, вторую может позже решу.

uses
Graph;
var
grDriver : Integer;
grMode : Integer;
ErrCode : Integer;
begin
grDriver:=Detect;
InitGraph(grDriver, grMode, 'D:\Language\BPascal\BGI');
Line(200, 100, 230, 100);
Line(230, 100, 230, 110);
Line(210, 110, 230, 110);
Line(200, 100, 200, 130);
Line(210, 110, 210, 130);
Line(180, 130, 270, 130);
Line(180, 130, 180, 160);
Line(180, 160, 270, 160);
Line(270, 130, 270, 160);
Line(140, 160, 310, 160);
Line(140, 190, 310, 190);
Arc(140, 175, 90, 270, 15);
Arc(310, 175, 270, 90, 15);
Circle(155, 175, 10);
Circle(190, 175, 10);
Circle(225, 175, 10);
Circle(260, 175, 10);
Circle(295, 175, 10);
ReadLn;
CloseGraph;
end.

помогите решить 7 задач.

ну так что мне кто нить поможет???

Ты бы лучше выложил их, а там видно будет...