Задача по информатики PASCAL

Question

Дали задачу по информатике. 
Ввести 5 переменных, найти: сумму всех чисел, произведение всех чисел, сумму всех положительных чисел и максимальное число. 
Все это надо записать на языке паскаль, но я нифига не понимаю. Помогите плиз!

Ни кто девушке за "Спасибо" уже помочь не может :( . Что за народ пошел.

Anton Gordienko · Accepted Answer

[ссылка заблокирована по решению администрации проекта]. gl/vTUUt

Оксана Иванова · Answer

5 баксов

Светлана Федорова · Answer

а ты хоть что нибудь написал сам, если все за тебя 50р на тел, если помочь - бесплатно

Леонид Рогачевскии · Answer

Код паскаля сюда не вставишь. А в чем конкретно сложность? Вроде операции самые базовые и синтаксис тоже.

Анастасия · Answer

гугл в помощь.. . 
З. Ы. не ужели так сложно поискать?

Ирена Жвингелайте · Answer

var N, S, P, Sp, Max : Integer; 
begin 
Write('Введите первое число: '); ReadLn(N); S := N; P := N; if N > 0 then Sp := N else Sp := 0; Max := N; 
Write('Введите второе число: '); ReadLn(N); S := S + N; P := P * N; if N > 0 then Sp := Sp + N; if N > Max then Max := N; 
Write('Введите третье число: '); ReadLn(N); S := S + N; P := P * N; if N > 0 then Sp := Sp + N; if N > Max then Max := N; 
Write('Введите четвёртое число: '); ReadLn(N); S := S + N; P := P * N; if N > 0 then Sp := Sp + N; if N > Max then Max := N; 
Write('Введите пятое число: '); ReadLn(N); S := S + N; P := P * N; if N > 0 then Sp := Sp + N; if N > Max then Max := N; 
WriteLn('Сумма чисел = ', S); 
WriteLn('Произведение чисел = ', P); 
WriteLn('Сумма положительных чисел = ', Sp); 
WriteLn(Максимальное число = ', Max); 
end.