Задано произвольное целое цисло . если оно больше 50, то нужно уменьшить его в 2 раза, в противном случае возвести в квадрат. паскаль

Question

Информатика: Задано произвольное целое цисло . если оно больше 50, то нужно уменьшить его в 2 раза, в противном случае возвести в квадрат. паскаль

Syrup75 · Answer

var a:integer;beginreadln(a);if a 50 thena:=a/2;else a:=a*a;Writeln(a);end....