Расставьте строки программы в правильном порядке, чтобы получилась программа, которая находит квадрат числа, если введённое число не отрицательное. Writeln (a); End. Var a: real; A:=sqr(a); Readln(a); a>=0 then if program primer; begin​