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

Var mas: array [1..3] of integer; i: integer; begin writeln('введите 3 числа'); for i: = 1 to 3 do readln(mas[i]); for i: = 1 to 3 do if mas[i]> 0 then writeln('положительное число ', mas[i] ,' было возведено в квадрат =', sqr(mas[i])) end.

первый файл займет 2750/1054 =2,6 = 3 кластера(может быть только целое число кластеров).

второй файл займет 324000/1024 = 307,4 = 308 кластеров.

 

ответ: 3 + 308 кластеров