Var S, P, a : real;
begin
write('Введите значение а: ');
readln(a);
S := a * a;
P := 4 * a;
writeln('S = ', S, 'P = ', P);
end.
Как вариант
#include <stdio.h>
int main(void)
{
int arr[5] = { 5, 9, 0, 3, 4 };
int sum = 0;
for (int i = 4; i > 0; --i) {
if (arr[i] == 0) {
for (int j = i; j < 5; ++j) {
sum += arr[j]; } break;
}
}
printf("%d", sum);
}
Держи :) .......................................................