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

Var n: integer; begin   read(n);   if (n mod 2=0) and (n< 10) or (n> 20) then writeln(n*n); end.

//pascal abc.net v3.0 сборка 1111 //"школьный" вариант, первая блок-схема var   a,b,c: integer; begin   read(a,b,c);   if (a=b) and (b=c) then  writeln('=') else   begin;   if a> b then   if a> c then writeln(a);   if b> a then   if b> c then writeln(b);   if c> a then     if c> b then  writeln(c);   end; end.//вариант для любителей оккультизма, вторая блок-схемаbegin  var se: =readarrreal(3);   if se.sum()/se.average()=se.average() then writeln('=') else writeln(se.max); end.  пример ввода: 333пример вывода: =

Var   a: array [1..3] of real;   max: real;   i,check: integer; begin   writeln('поиск максимального 3-х чисел');   writeln('введите значения 3-х чисел');   for i: = 1 to 3 do       readln(a[i]);   max: =a[1];   check: =1;   for i: =2 to 3 do   begin       if a[i]> max then           max: =a[i]       else if a[i]=max then           check: =check+1;     end; if check=3 then   writeln('все числа равны') else      writeln('max=',max) end.