С клавиатуры вводится последовательность целых чисел пока не введём число”0”. Напишите программу которая вычисляет среднее арифметическоеотрицательных чисел и среднее геометрическое положительных чисел. Паскаль(Pascal)

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

import math

s = input()

while s != '0':

summ = 0

k = 0

summ1 =0

k1 = 0

s = int(s)

if s < 0:

summ += s

k+=1

else:

summ1*= s

k1 += 1

print(summ/k)

print(pow(summ1, (1/k1)))

здесь в бесконечном цикле до 0 вводим числа и разбиваем их на группы > 0 и < 0 со ственно, после этого добавляем их в переменные для будущего вывода, ну и по формулам выводим

перепешите на паскаль