ПОМОГИТЕ, НУЖНО СДАТЬ ДО 19:00
1.Запишите значение переменной s, полученное в результате работы следующей программы.
program Pr9;
var s, k: integer;
begin
s:=0;
for k:=3 to 7 do
s:=s+6;
write (‘s=”,s)
end
2.Составить программу. Дано целое число x. Если x – отрицательное, то вычислить x2 , если x – положительное, то вычислить √.