Решить : даны числа n1, n2, n3, n4. те числа которые являются положительными, заменить нулями. (язык программирования pascal).

Var  n1,n2,n3,n4:real; 

begin 
  writeln('Введите n1, n2, n3, n4'); 
  readln(n1,n2,n3,n4); 
  if n1>0 then n1:=0; 
  if n2>0 then n2:=0; 
  if n3>0 then n3:=0; 
  if n4>0 then n4:=0; 
  writeln(' n1= ', n1, ' n2= ', n2, ' n3= ', n3, ' n4= ', n4);
end.