Составьте программку на языке Паскаль для решения задачки. С клавиатуры вводятся

Const n =5;
var
  a: array[1..n] of integer;
  i,k,s,p:integer;
begin
s:=0;
p:=1;
for i:=1 to n do
  begin
  readln(a[i]);
  if(a[i] gt;= 5) then
      s:=s+a[i] else
  if (a[i] lt;1) then
      p:=p*a[i];
  end;
 writeln('Начальные числа');
for i:=1 to n do
    write(a[i]+ ' ');
writeln;
writeln('Сумма чисел больше 5 : ',s:2);
writeln('Творенье меньше 1 : ',p:2);
readln
end.