Составьте программу, которая из трех введенных с клавиатуры чисел возводит в квадрат положительные, а отрицательные оставляет без изменения.

var a:array[1..3] of integer;i:integer;beginwriteln('Введите 3 числа');for i:=1 to 3 doreadln(a[i]);for i:=1 to 3 doif a[i]>0 then writeln(sqr(a[i]));readln;end.