Ввести 3 целых числа и вывести на экран их сумму и произведение. поомогите, объясните ...

var x, y, z:integer;

S:integer;

P:integer;

begin

readln (x, y, z) ;

S:=x+y+z;

P:=x*y*z;

writeln (S, P)

end.

var {ключевое слово после которого идет объявление переменных}

a, b, c, S, P{перечисление названия переменных, которые будут использовться}: integer; {после двоеточия указ тип переменных}

begin {начало выполнения программы}

write ('a = ') ; {вывод на экран текста и/или переменных (в данном случае выведится "а = ") }

readln (a) ; {считывание переменной а}

write ('b = ') ;

readln (b) ;

write ('c = ') ;

readln (c) ;

S : = a + b + c; {присваивание значение переменной S равной сумме a, b, c}

P : = a * b * c; {присваивание значение переменной P равной произведению a, b, c}

writeln ('Сумма равна ', S) ; {вывод на экрантеста " Сумма равна " и значения переменной S}

writeln ('Произведение равно ', P) ; {вывод на экрантеста " Произведение равно " и значения переменной P}

readln; {Ожидание нажатия клавиши enter}

end.