напишите блок-схему!

[abket1992]

program qq;

var fio:array[ 1..100] of string;
sum:array[ 1..100] of integer;
i, j, N, s1, s2, s3,pos_prob:integer;
stroka:STRING;
begin
write('Введите количество участников соревнований ');
readln(N); {считано количество участников}
writeln('Введите одну строку ЧЕРЕЗ пробел:');
writeln(' ФАМИЛИЯ ИМЯ Балл1 Балл2 Балл3 Балл4 ');
for i:=1 to N do
begin
fio[i]:='';
sum[i]:=0;
read(stroka);
for j:=1 to 2 do//цикл для фамилии и имени чтобы вытащить из строки
begin
stroka:=Trim(stroka); //удалить лидирующими и заключительными пробелами
pos_prob:=Pos(' ',stroka); //возвращает позицию первой подстроки ' ' в строке stroka
//ищет пробелы и возвращает номер позиции
fio[i]:=fio[i]+Copy(stroka,1,pos_prob); // считаем фамилию/имя
Delete(stroka,1,pos_prob); //удалить фамилию/имя из строки
end;
for j:=1 to 4 do//цикл баллов
begin
stroka:=Trim(stroka); //удалить лидирующими и заключительными пробелами
if (stroka <>'') then
begin
sum[i]:=sum[i]+StrToInt(Copy(stroka,1,1)); // считаем баллы
Delete(stroka,1,1); //удалить баллы
stroka:=Trim(stroka);
end;
end;
end;

writeln;
writeln('Список лучших участников многоборья:');
s1:=0; s2:=0;s3:=0;
for i:=1 to N do
begin
if sum[i]>s1 then
begin
s3:=s2; s2:=s1;
s1:=sum[i]
end
else
if sum[i]>s2 then
begin
s3:=s2; s2:=sum[i]
end
else
if sum[i]>s3 then s3:=sum[i];
end;
for i:=1 to N do
if sum[i]>=s3 then writeln('ФИО участника',fio[i], ' Кол-во баллов: ',sum[i]);
end.

[p51x]

Ищите по форуму - тут уже выкладывались проги для "лентяев".