Var A,B,V:integer;
begin
readln(A,B,V);
if (A>B) and (A>V) then
writeln('Антон старше')
else if (B>V) and (B>A) then
writeln('Борис старше')
else if (V>B) and (V>A) then
writeln('Виктор старше')
end.<span>
</span>
Я напишу по простому сам распеределиш
Delete Удаление символа с право
Caps Lok увелечение букв
Esc выхождение из программы
Enter вход в программу или разделение строки
Var c, ans, n, a, i, sum:integer;
begin
read(n);
read(c);
for i = 1 to n do
begin
read(a);
sum := sum+a;
if (sum >= c) then begin
ans := i;
break;
end;
end;
write(ans);
end.
А где картинка??? как тут можно помочь???
Нарисована блок схема к данной программе: