Составить программы 1) составить программу, которая вычисляет 30% от введенного числа 2) составить программу,в которой вводится 2 числа с клавиатуры и считает сколько процентов составляет 1-ое число от 2-го 3) составить программу, в которой градусы цельсия переводится в градусы кельвина заранее !

№1 var s,x,n,i:integer;begins:=0;write('Введите количество чисел: ');readln(n);writeln('Введите числа: ');for i:=1 to n dobeginreadln (x);s:=s+xend;writeln('Сумма чисел равна ',s);end.
№2 var n,i,p:integer;beginp:=1;write('Введите количество чисел: ');readln(n);for i:=1 to n dop:=p*i;writeln('Произведение чисел равнo ',p);end.
Подробнее - на -