Напишите процедуру которая определяет верно ли что переданное ей число - простое. (Используйте изменяемые параметры)

procedure getnumber ( n: integer );var i: integer;beginfor i := 2 to round ( sqrt ( n ) ) doif n mod i = 0 thenbeginwriteln ( \'Введённое число \', n, \' является составным.\' );exit;end;writeln ( \'Введённое число \', n, \' является простым.\' );end;